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Chapter  I 


INTRODUCTION 

Operation  of  a high  energy  pulsed  laser  presents  problems  of  acoustics 
and  thermodynamics  owing  to  the  generation  of  shock  waves  and  a heated  feas 
slug  which  are  a result  of  sudden  energy  deposition  and  wave  interaction 
with  other  laser  components.  In  addition,  other  transient  problems  of 
fluid  dynamics  and  thermodynamics  are  involved  during  the  start-up  of  a 
high  energy  laser  gas  circulator  from  a room  temperature,  zero  flow  initial 
condition  until  the  establishment  of  steady  flow  conditions  for  a sustained 
repetitive  pulsed  operation.  These  start  up  transients  are  characteristic 
of  all  high  energy  gas  laser  systems,  both  pulsed  and  cw,  and  both  open 
and  closed  cycle  to  varying  degrees.  The  main  purpose  of  this  project  is 
to  Investigate  transient  fluid  and  thermal  characteristics  of  high  energy 
pulsed  laser  operations  and  to  develop  methods  of  reducing  or  eliminating 
the  acoustic  and  thermal  problems  detrimental  to  the  laser  beam  quality. 

In  this  technical  direction,  a program  was  initiated  at  the  Army  Missile 
Command  to  design,  fabricate  and  test  a unique  small  scale  closed  cycle 
gas  circulator  for  repetitively  pulsed  electric  discharge  lasers  to  establish 
a technology  data  base  for  understanding  the  laser  operation.  Technical 
Issues  relating  to  operating  such  a system  will  be  Identified  and  methods 
of  solving  these  technical  problems  may  be  developed  and  tested.  The  cir- 
culator, with  a 28,000  rpm  compressor,  operates  at  200  - 300  °K  and  0,8  - 
1.2  atm  pressure.  Complementing  this  Army  effort,  the  UAH  project  was  planned 
to  develope  computer  programs  modeling  the  recirculating  gas  flows  in  pulsed 
laser  operation  including  steady  and  unsteady  cases;  to  perform  theoretical 


analysis  of  the  unstable  resonator  with  tilted  spherical  mirrors;  to  conduct 
an  experimental  investigation  of  transient  fluid  and  thermal  characteristics 
of  the  recirculating  flow  associated  with  the  pulsed  laser  operation  using 
a subscale  circulator;  and  to  experimentally  determine  the  effects  of  mufflers, 
screen  packs  and  honeycombs  on  acoustic  and  thermal  waves  propagated  in  the 
recirculating  flow. 


Some  of  these  efforts  are  Improvements  and  modifications  of  the  efforts 
noted  in  the  previous  year's  report.  Results  of  this  project  are  useful 
as  a technical  guide  for  the  development  of  the  Army  Closed  Cycle  Circulator 
as  well  as  of  direct  interest  to  those  concerned  with  all  types  of  pulsed 
laser  systems. 

Contributions  to  this  report  were  made  by:  G.  R.  Karr  in  Chapter  IV; 

J.  F.  Perkins  in  Chapter  V;  David  Walker  in  Chapter  III;  W.  Dahm  in  Chapter 
II,  under  general  technical  direction  of  C.  C.  Shih. 


Chapter  II 
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EXPERIMENTAL  ANALYSIS  OF  SUBSCALE  CLOSED  CYCLE 
LASER  GAS  CIRCULATOR 

The  closed  cycle  gas  circulator  used  in  this  study  was  designed  for 
use  with  the  MICOM  single  pulse  e-beam  controlled  CO2  laser.  It  was  ori- 
ginally developed  to  Initiate  an  experimental  investigation  on  the  transient 
flow  and  heating  problems  characteristic  of  high  average  power  pulsed  laser 
operation  in  closed  cycle  systems.  The  effort  reported  herein  is  an  ex- 
tension of  the  work  performed  in  the  year  1976-77  that  includes  design  im- 
provements in  the  cavity  section  and  two  perforation  type  mufflers  and  two 
sizes  of  screen  packs. 

A.  Experimental  Apparatus  Description 
1.  Recirculating  Flow  System 

The  recirculation  system  consisted  of  a blower,  poly  vinyl 

chloride  (PVC)  piping,  mounting  flanges  for  attachment  to  the  e-beam  laser, 

an  e-beam  mask,  and  a plastic  structure  which  was  mounted  Inside  the  laser 

3 

cavity.  The  j.aser  was  made  by  Systems  Science  and  Software  (S  ) . A sche- 

3 ii 

matic  of  the  system  attached  to  the  S laser  is  given  in  Figure  1.  The  j 

flow  through  the  cavity  region  is  from  right  to  left  in  that  figure. 

a.  Blower  Specifications 

The  blower  is  a Dayton  Model  4C108  with  a 10  5/8"  wheel. 

The  inlet  is  6Ji"  in  diameter.  The  outlet  is  2%"  square.  The  outside  of 
the  blower  casing  is  approximately  13”  in  diameter. 

The  motor  is  connected  directly  to  the  blower  wheel.  The  motor  is 
a 1 hp  Dayton  Model  6K232  operated  at  3450  rpm. 
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PROBF.  LOCATION  MEASURFMF.NTS  ON  PVC  MODEL  WITH  MllEELER  ADDED 


f.  Cavity  Structure 
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The  cavity  structure  serves  to  box  in  the  discharge  region 
in  the  vertical  and  longitudinal  directions  and  also  to  provide  a support 
for  the  PVC  pipe.  Since  the  wave  distortions  discovered  in  the  previous 
tests  were  determined  to  be  attributed  to  pressure  leaks  from  the  structure, 
a special  caution  was  applied  for  sealing  the  cavity  structure  in  contact 
with  the  sustainer  electrode  as  well  as  the  45  cm  E-beam  mask.  A sketch 
of  the  cavity  structure  is  shown  in  Figure  3. 

2.  Mufflers 

A horn-coupled  muffler  and  a cannister  type  muffler  was 
designed,  constructed  and  tested  on  the  acoustic  test  bench  and  then  in 
the  circulator.  Detailed  dimensions  of  the  mufflers  are  shown  in  Figures 
4 and  5 , respectively.  On  the  acoustic  test  bench,  each  muffler  was 
subjected  to  sound  waves  of  fixed  frequencies  ranging  from  100  HZ  to  110 
KHZ  for  determining  its  effectiveness  as  an  acoustic  attenuator.  The 
test  setup  shown  in  Figure  6 provides  the  means  of  using  the  same  acoustic 
source  for  pipe  sections  with  and  without  the  muffler  of  interest.  This 
will  prevent  any  nonuniformity  in  wave  characteristics  from  two  different 
sound  sources  even  though  the  indicator  shows  that  they  are  the  same. 

This  setup  also  allows  for  the  monitoring  of  the  input  to  the  system  since 
the  input  wave  form  is  also  put  on  the  oscilloscope.  Thus,  any  drift  in 
the  amplifiers  can  be  corrected  during  the  experiment.  Results  of  a- 
coustic  bench  tests  for  both  horn-couples  and  cannlster  mufflers  are  pre- 
sented in  Figure  7 . Both  muffleis  were  found  to  perform  well  in  Che  low 
frequency  region  with  peak  d-  difference  of  20  to  30.  The  horn-coupled 
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muffler  shows  a flatter  response  in  the  low  frequency  region  than  the 
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Figure  4.  SKETCH  OF  MUFFLER. 

Curved  pieces  constructed  of  4"  PVC  piping, 
sides  of  box  constructed  of  '4"  plywood, 
and  end  pieces  constructed  of  4"  plexiglass. 


ijiiii 


FIGURE  5 


PVC  PIPE 


Coarse  (3^  mesh)  Screen 
305  mm  Spacing 


PLOT  OF  DECIBEL  DIFFERENCE  VS  FREQUENCY 
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cannister  type.  The  cannister  muffler  shows  an  effective  damping  at  the 
400  HZ  point.  Above  2000  HZ,  neither  muffler  shows  significant  muffling 
characteristics.  B & K test  equipment  was  used  on  the  acoustic  test  bench 
for  the  acoustic  measurement. 

3.  Screen  Packs 

The  use  of  screen  packs  has  been  accepted  as  one  of  the  most 
common  methods  of  conditioning  or  suppressing  the  level  of  turbulence  in 
a confined  fluid  stream  such  as  a wind  tunnel  test  section.  At  the  sug- 
gestion of  Poseidon  Research,  two  screen  mesh  sizes  (60  mesh  pet  inch 
with  0.004  in.  wire  size  at  55%  open  area;  34  mesh  per  inch  with  0.0065 
in.  wire  size  at  55%  open  area)  shown  in  Figure  8 were  tested  on  the 
acoustic  test  bench  in  the  same  fashion  as  the  mufflers.  The  screen  packs 
were  constructed  using  two  sheets  of  screen  at  two  spacings,  203  mm  and 
305  mm.  Thus,  four  test  pieces  were  constructed  and  tested  on  the  bench. 

Both  the  fine  (60  mesh)  and  coarse  (34  mesh)  screens  were  tested 
using  the  wide  (305  mm)  spacing.  The  results  of  testing  over  the  frequency 
range  from  1 to  20  KHz  are  presented  in  Figure  9 for  the  coarse  (34  mesh) 
screens  on  305  mm  spacing  and  in  Figure  10  for  the  fine  (60  mesh)  screens 
on  the  same  spacing.  Note  that  the  vertical  axis  are  reversed  in  sign  in 
the  two  figures. 

The  results  show  that  the  fine  (60  mesh)  screen  is  generally  more 

effective  over  the  frequency  range  tested.  Figure  10  shows  a d.  difference 

c 

between  the  straight  pipe  and  the  pipe  with  screens  of  about  4 dg  on  the 

average  while  Figure  9 shows  only  a 2 d.  difference  for  the  coarse  (34 

c 

mesh)  screens.  Both  screens  show  different  peaks  at  16  and  13  KHz  with  a 
general  increase  also  in  the  7-10  KHz  region.  Both  screens  also  show  a 
i-.ive  value  in  the  4-6  KHz  range. 
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4.  Instrumentation  System 
a.  Pressure  Measurement 

The  instrument  used  for  pressure  measurements  is  a battery 
of  four  Piezotron  pressure  sensing  units  each  of  which  consists  of  a 
piezoelectric  pressure  transducer  (Type  201B5)  and  a coupler  (549B)  con- 
nected with  a 128M  cable.  The  unit  is  then  connected  to  an  oscilloscope 
for  the  readout  of  voltage  signals.  Specifications  of  the  Piezotron 
miniature  pressure  sensor  or  transducer,  the  Piezotron  coupler,  and  the 
Textronix  oscilloscope  are  presented  in  Appendix  A. 

The  pressure  of  up  to  100  psi  was  sensed  by  the  mini-gage  which  gives 
a direct,  high  level,  voltage  signal  with  less  than  100  ohms  output  im- 
pedance and  high  frequency  response  of  50  KHz  and  low  frequency  response 
of  0.005  HZ.  The  sensot  then  converts  the  pressure  into  electrical  voltage 
with  bias  of  up  to  11  + 2 volts.  The  power  required  by  the  transducer  to 
operate  is  supplied  by  the  coupler,  and  the  signal  from  the  transducer 
to  the  readout  equipment  is  transmitted  through  the  coupler  over  a single 
inexpensive  cable.  This  eliminates  all  of  the  inherent  piezoelectric  high 
impedance  problems  of  electrical  leakage,  cable  noise  and  signal  attenuation 


and  allows  the  tranducers  to  be  used  in  contaminated  environments  and  with 


long  and  moving  cables  at  low  noise  and  without  use  of  charge  amplifiers. 

The  calibration  of  the  transducers  was  performed  at  the  factory, 
and  the  values  of  the  calibration  were  noted  to  be,  on  the  average  for  all 
probes,  50  mv  per  psi  for  the  pressure  measurement  up  to  100  psi.  The 
calibration  curve  relating  the  voltage  output  and  the  pressure  is  noted 
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to  be  quite  lenient. 


b.  Temperature  Measurement 

Due  to  the  extremely  transient  nature  of  temperature  varia- 
tion in  the  recirculating  flow  as  a result  of  the  pulsed  laser  operation, 
a sensor  of  high  frequency  response  in  excess  of  1 KHz  is  considered 
necessary  for  the  temperature  measurement.  Search  of  an  adequate  sensor 
resulted  in  the  selection  of  a hot-wire  sensor  made  of  0.00015  in.  diameter 
tungsten  wire  coated  with  platinum  powdery  film.  The  hot-wire  sensor  is 
connected  to  the  Temperature  and  Switching  Module  (Thermo-Systems  Model 
1040)  which  is  in  turn  connected  to  the  power  supply  (Model  1031-10A). 

The  Module  consists  of  a bridge  circuit  and  amplifie"  in  an  open 
loop  configuration  so  the  hot-wire  sensor  which  is  ordinarily  used  as  an 
anemometer  probe  can  be  switched  to  function  as  a resistance  thermometer. 
Since  there  is  a linear  proportionality  between  the  voltage  output  and 
the  temperature,  the  calibration  can  be  simply  performed  by  adjusting  the 
zero  and  gain  set  potentiometers  to  a desired  temperature  range  using  the 
calibrate  pots  of  two  temperatures. 

c.  Velocity  Measurement 

For  the  measurement  of  velocities,  hot-wire  probes  the  same 
as  those  used  for  the  temperature  measurement  is  applied.  The  probe  is 
connected  to  the  constant  temperature  anemometer  module  (Model  lOlOA) . 

The  amplified  output  signal  from  the  anemometer  is  sent  to  the  Linearizer 
(Model  1005B)  so  that  the  voltage  signal  is  processed  in  such  a way  chat 
it  became  linearly  related  to  velocity  of  the  gas  flow. 

The  use  of  these  modules  ensures  the  frequency  response  above  500 
KHz  with  power  output  as  high  as  1.5  amps.  The  noise  associated  with  the 
anemometer  is  noted  to  be  less  Chan  0.007%  equivalent  turbulent  intensity. 


Frequency  response  co  the  Linearizer  is  found  to  be  up  to  400  KHz  and 


the  accuracy  of  linearization  can  reach  + 0.2%.  With  these  special  features  | 

of  the  instrument,  it  is  able  to  measure  both  average  velocity  and  turbulence  i 

4 

in  one-dimension. 

Calibration  of  the  probe  is  performed  by  using  a Thermo-Systems 
Calibrator  (Model  1125)  in  accordance  with  the  furnished  instructions. 

The  readout  system  for  both  temperature  and  velocity  is  the  Tektronix  type  | 

oscilloscope  (Type  564-3A74-3B3) . 

B.  Presentation  of  Experimental  Data 

3 

An  experimental  run  typically  involved  firing  the  S laser  and 
recording  pressure,  temperature,  and/or  velocity  at  various  locations  in 
the  circulator.  In  addition,  the  laser  discharge  current  was  also  moni- 
tored for  each  run  in  order  to  determine  the  power  put  into  the  gas  flow. 

Data  collected  from  each  run  were  recorded  with  two  Polaroid  photos:  one 

for  laser  energy  deposition  and  one  for  fluid  and  thermal  characteristics, 

along  with  readings  from  other  indicators.  Plates  5381  to  5523  presents 

the  data  and  complete  information  regarding  the  test  runs  on  one  figure  j 

to  a test  run  basis.  These  plates  are  presented  in  Appendix  B. 

The  tests  were  designed  to  investigate  the  fluid-thermal  disturbances  ^ 

produced  by  the  sudden  energy  deposition  in  the  cavity  section  of  the  ! 

, 

circulator. 

A list  of  all  test  runs,  with  appropriate  details,  made  during  this  ' 

< ' 

project  period  is  attached  as  Appendix  B.  \\\ 

Based  on  the  previous  experience,  pure  nitrogen  gas  was  found  ade-  ij 

; 

quate  for  approximating  the  laser  gas  characteristics  in  the  experiment  of 
interest.  Thus,  nitrogen  was  used  in  all  test  runs  for  the  sake  of  con-  , 
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C.  Discussion  and  Analysis  of  the  Data 


3 

The  S laser  without  lasing  action  merely  provided  the  de- 
position of  energy  in  the  cavity  section,  thereby  simulating  the  energy 
pulse  generated  in  such  a laser.  The  E-beam  was  operated  at  90  KV,  the 
sustainer  voltage  was  varied  between  15-30  KV,  and  the  pulse  width  was  i 

varied  between  2 and  3u  sec. 

As  pertains  to  the  fluid  dynamics  of  the  cavity  flow,  the  energy 
deposition  is  considered  instantaneous  and,  therefore,  the  process  can  be 
described  as  an  instantaneous  constant  volume  heating  process.  The  gas 
pressure  and  temperature  are  instantaneously  increased  by  the  energy  de- 
position while  the  density  remains  unchanged.  As  the  flow  transports  the 
heated  slug  of  high  pressure  gas  away  from  the  cavity,  the  frictional  re- 
sistance and  thermal  diffusion  will  take  place  in  the  heated  slug  of  gas, 
causing  its  deterioration  of  fluid  and  thermal  characteristics. 


Detailed  discussion  and  analysis  of  the  data  of  some  typical  test 
runs  are  presented  in  Chapter  VI,  Sections  2,  3,  and  4. 


NUMERICAL  ANALYSIS  OF  TRANSIENT  FLOW  PROBLEMS  RESULTING 
FROM  PULSED  ENERGY  INPUT 


A.  Theoretical  Considerations 

As  an  input  of  pulsed  energy  is  made  into  the  laser  cavity, 
disturbances  in  the  form  of  shock  waves  and  thermal  changes  will  travel 
out  from  the  cavity,  overriding  the  recirculating  laser  gas  flow.  These 
phenomena  are  modeled  by  a set  of  governing  equations  of  fluid  dynamics 
and  thermodynamics  with  the  one-dimensional  assumption. 

Details  of  the  theoretical  model  including  the  governing  equations, 
boundary  and  initial  conditions,  formulation  of  the  method  of  characteris- 
tics, finite  difference  schemes  and  the  flow  diagram  are  delineated  in  the 
UAH  Research  Report  No.  199  (March  1977),  pages  7 through  24.  For  the  sake 
of  brevity,  they  are  not  repeated  here,  and  their  reference  is  made  to  the 
1977  report.  The  computer  program  modified  from  the  1977  version  is  pre- 
sented in  Appendix  C. 

B.  Presentation  of  Numerical  Results 

After  several  modifications  and  improvements  of  the  computer 
program  pertaining  to  the  transient  flow  problems  of  interest,  the  program 
has  been  developed  for  calculating  the  flow  field  quantities  including 
all  the  flow  and  thermal  properties  as  functions  of  temporal  and  spacial 
coordinates.  The  results  also  include  the  analysis  of  shock  waves  pro- 
pagating both  upstream  and  downstream  from  the  cavity  as  well  as  the  heated 
slug  of  laser  gas  bounded  by  two  contact  surfaces  overriding  the  recircula- 
ting flow  in  the  circulator.  Samples  of  the  numerical  results  are  presented 
graphically  and  also  in  tabular  form  as  shown  in  Figure  11  and  Table  I and  lA, 


respectively.  These  results  demonstrate  the  capability  of  the  program 
to  numerically  simulate  the  flow  phenomena  with  a reasonable  accuracy  and 
a considerable  flexibility  for  varying  system  parameters  such  as  energy 
input,  cavity  dimensions,  circulator  dimensions  and  gas  properties,  pro- 
vided that  coefficients  associated  with  the  parameters  are  properly  se- 
lected. 
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Chapter  IV 


NUMERICAL  ANALYSIS  OF  STEADY  FLOWS  IN  THE 


CLOSED  CYCLE  CIRCULATOR 


The  overall  program  consists  of  the  MAIN  calling  program  vrtiich  is 


i 


aided  by  the  ENPUT,  GASP,  AIRP,  MACH,  SIM},  LIQP,  and  OUTPUT  subroutines. 
Data  transfer  is  conducted  through  common  blocks  VAR  and  IVAR.  All  of  the 
real  data  is  stored  in  VAR  and  the  integer  quantities  are  stored  in  IVAR. 

Figure  1 illustrates  the  overall  tunnel  and  coolant  system,  and 
identifies  the  assignment  of  station  numbers  referenced  in  the  computer 
simulation. 

DESCRIPTION  OF  THE  COMPUTATIONAL  PROCEDURE  - 

PRIMARY  EMPHASIS  ON  MAIN  AND  ENPUT 

At  statement  number  two  MAIN  calls  upon  ENPUT  to  read  in  the 
NAMELIST  case  data  and  alphanumeric  title.  In  the  UAH  simulations  the 
control  variable  NTAM  = 0,  so  that  temperatures  TAl,  TIG,  T02G,  T06G, 

T07G,  Tl,  T2,  T3,  T4,  T6,  T8,  TIO,  T14,  T16,  T18,  T20,  and  TA2  receive 
either  specified  input  values  or  built-in  values  by  default.  Blower 
pressure  ratio  (BPR)  and  cavity  inlet  velocity  (VI)  are  also  obtained 
from  input  or  default  conditions.  Cavity  inlet  pressure  (PIG)  is  converted 
to  psi,  air  relative  humidity  (RH)  is  converted  to  a decimal  number,  laser 
output  efficiency  (EFFL)  is  converted  to  a decimal  number,  and  cavity 
inlet  hydraulic  diameter  (DC),  height  (HI),  width  (WTl),  and  length  (CLl) 
are  all  converted  to  feet.  The  AIRP  subroutine  is  called  with  TAl,  PAT, 
and  RH  so  that  air  molecular  weight  will  be  available  for  the  subsequent 
air  density  (R0A1)  calculation  for  the  radiator  inlet.  Air  mass  flow  rate 
is  next  determined  using  R0A1,  TAl,  and  the  input  value  of  corrected  air 
volumetric  flow  rate  (CWA) . Fin  thermal  conductivities  for  all  heat  ex- 
changers are  converted  into  BTU/sec.-ft^-(°F/ft)  and  the  number  of  coolant 
fluid  passes  in  each  heat  exchanger  is  converted  from  integers  to  real 
numbers . 
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\ 
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Although  cavity  inlet  area  is  a routine  Input,  It  Is  again  calculated 
from  HI  and  CLl.  An  estimate  of  the  volumetric  flow  rate  at  tunnel 
station  6 is  obtained  from  VI  and  A(l) . Ihe  Input  list  and  case  title 
are  printed  and  control  returns  to  MAIN. 

With  control  again  In  MAIN,  the  following  relationships  provide 

starting  estimates  for  certain  tunnel  static  temperatures: 

T2G  = T02G 

T5G  = T02G 

T6G  = T06G 

TIOG  = T07G 


The  loop  counters  JV  and  II  are  initialized  at  zero,  and  GASP  is 
entered  with  TIG  and  FN  providing  values  for  GAMIG,  CPIG,  and  GMU.  The 
decision  variable  JCPR0  is  consulted  to  determine  whether  cavity  inlet 
pressure  or  density  should  remain  fixed  at  its  input  value.  If  JCPR0^ 0, 
then 

PIG  = R01*TIG/(.O93178*GMU) 


if  JCPR0  <1  0,  then 

R01  = .093178*PIG*GMU/TIG 

Calculations  for  mass  flow  rate  (WG) , inlet  Mach  number  (FMl) , 
and  inlet  stagnation  temperature  (T01G)  are  now  performed;  and  T01G  serves 
as  an  estimate  for  the  static  temperature  at  tunnel  station  11  (TllG). 

The  AMT  and  BMT  arrays  are  set  to  zero  and  heat  exchanger  calculations 
begin. 

In  the  following,  only  calculations  related  to  the  first  tunnel 


I 

[ heat  exchanger  (HXl)  will  be  outlined,  since  the  calculation  pertinent 


• to  (HX2) , (HX3),  and  the  outside  radiator  assembly  are  essentially  similar. 
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On  the  coolant  side  of  the  heat  exchanger,  the  bulk  average 
temperature  (TMI)  Is  determined  from  the  arithmetic  average  of  the  Inlet 
and  outlet  temperatures: 

TMI  = .5*(T2  + T4) 

On  the  gas  side  of  the  heat  exchanger,  the  bulk  average  temperature 
(T6MI)  Is  defined  as  the  log-mean  average  temperature  determined  from: 

TGMI  = TMI  + (Z1  - Z2)/(ln  Z1  - In  Z2) 
where  Z1  = T5G  - T4 

and  Z2  = T6G-T2 

However,  if  either  Z1  or  Z2  0,,  then 

TGMI  = ,5*  (T5G  + T6G) 

GASP  is  now  entered  with  TGMI  and  FN,  and  it  provides  the  constant 
pressure  specific  heat  (CPGI) , Prandtl  Number  (PRGI) , viscosity  (GIMU), 
and  molecular  weight  (GMU) . LIQP  is  similarly  called  with  TMI  and  FG, 
providing  the  coolant  viscosity  (ZIMQ),  Prandtl  Number  (PRI) , and 
specific  heat  (CPI) . 

The  gas  side  overall  frontal  area  (AFRGI)  is  given  by 

AFRGI  = DL(1)  * DH(1),  and  the  gas  stream  mass  velocity 
(GGI)  is  determined  from 


GGI  = WG/ (DSIG  (1)  * AFRGI) 

where  DSIG(l)  represents  the  dimensionless  ratio  of  free- flow  area 
to  frontal  area. 

For  the  coolant  side, the  overall  frontal  area  per  pass  (AFRI)  is 
given  by 
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AFRI  = DW(1)  * DH(1)/DNP(1) 

The  coolant  stream  mass  velocity  (GI)  is  determined  from 

GI  = WI/(DSI(1)  * AFRI) 

where  WI  is  the  input  value  of  coolant  mass  flow  rate  and  DSI(l)  is  the 
dimensionless  ratio  of  free-flow  area  to  frontal  area. 

Representative  Reynolds  Numbers  for  the  gas  side  (REGI)  and  coolant 
side  (REI)  are  given  by 


REGI  = GGI  * DDHG(1)/GIMU 
REI  = GI  * DDH(1)/ZIMD 

For  the  gas  side,  the  data  on  Figure  2 was  employed  in  the  con- 
struction of  functions  expressing  the  dependence  of  the  mean  friction 
factor  (GFI),  and  the  Colburn  J factor  (GJI),  on  REGI.  For  the  liquid 
side,  the  Colburn  J factor  (ZJI)  was  related  to  REI  on  the  basis  of 
the  data  presented  in  Figure  3. 

It  should  also  be  noted  that  the  three  heat  exchangers  have  identical 
plate-fin  core  structures,  whereas  the  gas  side  data  for  a radiator  is 
presented  in  Figure  4.  The  coolant  side  plate- fin  structure  of  a 
radiator  is  identical  to  that  of  the  three  tunnel  heat  exchangers.  Coolant 
friction  factors  were  not  computed,  since  current  UAH  simulations  do  not 
examine  pressure  drops  in  the  coolant  circulation  system. 

The  unit  conductances  for  the  thermal  convection  heat  transfer  on 
the  gas  side  (HGI)  and  on  the  liquid  side  (HI)  are  given  by 


i 

1 


I 


HGI  = GGI  * CPGI  * GJI  * (PRGI)"^^^ 
HI  = GI  * CPI  * ZJI  * (PRI)’^'^^ 
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The  fin  effectiveness  parameters  on  the  gas  and  coolant  sides  are 
denoted  by  GMI  and  GMl,  respectively. 


GMI  = 


2 * HGI 

DK(1)  * DDEL(l) 


where  DDEL  (1)  represents  the  gas  side  fin  thickness  in  feet.  Similarly, 

rvi  2 * HI 

" DK(1)  * DA(1) 

where  DA(1)  represents  the  liquid  side  fin  thickness  in  feet.  It  should 
also  be  noted  that  the  identical  thermal  conductivities  used  in  the  expressions 
for  GMI  and  GMI  imply  that  fins  on  both  sides  of  the  heat  exchanger  are 
constructed  from  the  same  material  (currently  aluminum). 


Since  the  fins  extend  from  wall-to-wall,  it  has  been  assumed 


that  the  effective  fin  length  is  given  by  one  half  of  the  wall  spacing. 
On  the  gaa  side,  the  fin  efficiency  (ATFI)  is  given  by 

where  DSL(l)  represents  the  gas  side  fin  length  in  feet.  Similarly,  the 
liquid  side  fin  efficiency  (ATFIL)  is  computed  from 


ATFI  = 


TANHFGMI^SLd) 
GMI  * DSL(l) 


ATFIL 


TANH[GMI*DSLL(1) 


GMI  * DSLL(l) 


where  DSLL(l)  represents  the  liquid  side  fin  length  in  feet. 

The  total  surface  temperature  effectiveness  of  the  heat  transfer 
surfaces  on  the  gas  side  (AT01)  is  given  by  the  weighted  average  of 
the  100^  effectiveness  of  the  prime  surface  and  the  less  effective  fin 
surface, 

AT0I  = l.-DAF(aA(l)  * (l.-AIFI) 


where  DAF0A(1)  represents  the  ratio  of  fin  area  to  surface  area. 


AI01  = 1.-  DAFAL(l)  * (I.-AIFIL) 

where  DAFAJj(I)  represents  the  ratio  of  fin  area  to  surface  area. 

The  overall  conductance  for  heat  transfer  for  the  first  heat 
exchanger  (UI)  is  given  by 

UI  = 1./(1./(AT«)I*HGI)+AB(1)/DK(1)*(1.-DAP«IA(1)))+  DALG(l)  / (DALF  (1)*HI*AI01)) 

where  AB(1)  represents  the  parting  plate  thickness  in  feet,  DALG(l)  is 
the  gas  side  heat  transfer  surface  area  to  volume  ratio  in 
1/ft.,  and  DALF(l)  is  the  ratio  of  liquid  side  heat  transfer  surface 
area  to  volume  in  1/ft, 

In  the  final  calculations  related  to  the  heat  exchanger  effectiveness 
estimation,  the  coolant  and  hot  gas  capacity  rates  are  evaluated  and 
compared  to  establish  the  appropriate  minimum  and  maximum  values  identi- 
fied by  CMINI  and  CMAXI,  respectively.  Having  defined  AGI  as  the  surface 
area  on  which  UI  is  based,  the  number  of  heat  transfer  units  (TUNI)  is 
now  given  by 

TUNI  = AGI  * UI/CMINI 

The  heat  exchangers  and  radiators  have  been  assumed  to  correspond 
to  the  multipass  overall- counterf low  configuration;  and  the  number  of 
coolant  passes  in  each  unit  is  contained  in  the  DNF  array.  Kays  and 
London  (Reference  1)  have  observed  that  the  effect  on  performance  of 
fluid  mixing  either  within  passes  or  between  passes.  Is  not  significantly 
different  from  cases  where  there  is  no  mixing  at  all,  hence  the  single- 
pass  effectiveness  (ESSI)  is  computed  from 


ESSI  = l.-EXP  - T0WI*CMAXI/CMINI 


where 


ri 
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T0WI  = l.-EXP  -TUNI*CMINI/(CMAXI*DNP(1)) 

The  overall  effectiveness  (EPSI)  is  now  given  by  the  following 
sequence  of  calculations 

EPSI  = ((1.-ESSI*CMINI/CMAXI)/(1,-ESSI))**NP(1) 

EPSI  = (EPSI-1.)/(EPSI-CMINI/CMAXI) 
liowever,  if  CMINI/CMAXI  is  greater  than  .9999,  then 

EPSI  = DNP(1)*ESSI/(1.+ESSI*(DNP(1)-1,)) 

Tunnel  calculations  continue  with  the  determination  of  station  1 
stagnation  pressure  using  known  values  for  Mach  number,  specific  heat 
ratio,  and  static  pressure.  Since  the  cavity  design  control  parameter 
NDSGN  was  always  set  at  a value  of  two,  the  calculations  are  forced  to 
assume  a constant  area  cavity.  Although  A(2)  is  an  external  input,  it 
is  now  set  equal  to  the  cavity  inlet  area.  Assuming  constant  specific 
heat  for  the  gas  flowing  in  a heated  duct,  the  temporary  variable  21  re-  j 

I 

presenting  stagnation  temperature  for  a choked/heated  cavity  at  a station 
where  the  Mach  number  is  postualted  equal  to  one,  is  obtained  from 

2 2 

2^  ^ T01G*(1 . -k;amig*fmi  ) 

2*(GAMIG+1.)’*EM1^*  1.+  *FM1^ 

Next,  21  is  redefined  as  T02G/T^*;  and  if  21>1  the  message 
"Choked  Cavity- Read  New  Data"  is  printed  and  the  case  is  aborted. 

If  the  test  on  21  was  satisfactory,  then  the  static  temperature 
loop  counter  is  initialized  at  a value  of  zero  and  GASP  is  entered  with 
known  values  of  T2G  and  FN.  GASP  returns  values  for  GAM2G,  CP2G  and  GMU 
(which  is  fixed  for  the  case  since  it  only  depends  upon  the  gas  mixture 
specified  initially) . 


I 

* 

= T 

o 
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Under  the  assumption  that  GAMIG  GA^G 


T02G 

T * 
o 


2 (Yj+l)  (1+ 

(U  Yj 


= Z1 


where  Y2  ^ have  been  employed  as  shorthand  forms  for  GAM2G  and  FM2, 
respectively.  This  convention  will  also  be  adopted  for  other  tunnel 
stations.  Upon  defining 


and 


Z2  = 2 Y2  - 2 Y2  - 2 


Z3  = Y2^  (Zl-1)  + 1 


we  obtain  the  following  equation  that  must  be  satisfied  by  M2 

2 ^ 2 

Z3  (M2  ) + Z2  M2  + Z1  = 0 

Finally,  M2  is  given  by  the  square  root  of  a positive  solution  < 1 

determined  for  the  above  aquation.  However,  if  Z3  = 0,  then  M2  is  simply 


determined  from 


M2  = 


- Z1 
Z2 


The  current  value  of  T2G  is  now  stored  as  the  variable  T2G0LD,  and 
a new  value  of  T2G  is  computed  from 


T2G  = 


T02G 


2 


If  the  new  value  of  T2G  is  within  a .5  degree  (Rankine)  neighborhood  of 
T2G0LD,  then  the  solution  continues.  If  T2G  does  not  pass  this  test  but 
the  loop  counter  has  not  been  exceeded,  then  the  static  temperature  loop 
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is  reentered  at  statement  number  12000  using  the  current  value  of  T2G. 

If  the  above  two  conditions  have  not  been  satisfactorily  met,  then  the 
message  "Failure  to  Converge  in  Static  Temp.  Loop  1"  is  printed,  also 
recording  the  temperature  error  and  number  of  loop  cycles.  The  run  is 
subsequently  aborted. 

A successful  pass  through  the  above  criteria  is  followed  by  the 
computation  of  static  (P2G)  and  stagnation  (F02G)  pressures  at  the  cavity 
exit. 

Using  the  fixed  value  of  total  pressure  loss  coefficient  (CF23)  for 
the  first  diffuser,  the  exit  stagnation  pressure  is  given  by 

P03G  = P02G  - CF23*(P02G-P2G) 

Using  estimated  values  of  and  the  MACH  subroutine  is  called 
in  conjunction  with  known  values  for  DELM,  NLIM,  P03G,  T03G  = T02G,  WG, 

GMU,  A(3),  and  FN.  Internally,  MACH  calls  upon  GASP  to  provide  values  for 
Cp  (T)  and  y (T) ; and  MACH  iterates  on  until  a value  of  M^  is  found  that 
lies  within  DELM  of  the  computed  on  the  previous  pass  through  MACH. 
By-products  of  the  MACH  subroutine  are  values  of  GAM3G,  CP3G,  static 
temperature,  and  static  pressure  at  station  3. 

It  should  be  noted  that  since  y^  is  computed  after  MACH  number 
convergence,  "convergence"  in  MACH  is  actually  obtained  with  slightly  in- 
consistent values  of  T3G  and  y^.  If  the  number  of  Iterations  in  the  MACH 
subroutine  equals  HLIM  and  convergence  has  not  been  obtained  then  the 
error  message,  "Failure  to  Converge  in  MACH  No.  Subroutine",  along  with 
the  error  value,  is  pirlnted;  and  control  returns  to  the  main  program 
(the  run  is  not  aborted) . 

With  the  assvimption  that  stagnation  temperature  from  station  2 to 
station  5 is  constant,  the  calculations  for  gas  flow  properties  at  stations 
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4 and  5 are  obtained  in  a manner  analogous  to  the  calculations  performed 
for  station  3. 


The  density  at  station  5 (R05)  is  given  by 

R05  = .093178  * P5G  * GMU/T5G 

The  counter  for  Density  Loop  1 is  Initialized  at  a value  of  zero  and 
initial  estimates  for  R06,  and  Yg  sltb  obtained  from 

R06  = Rj}5 

GAM6G  = GAM5G 

FM6  = WG*DSQRI(T(J6G/GAM5G/GMJ)  / (2O.7774*P05G*A(6)) 

The  value  of  R06  is  stored  in  the  dummy  variable  Z1  and  the  stag- 
nation pressure  at  station  6 is  predicted  from 

P06G  = P05G-GGI^  * ((l.+DSIG(l)^)  * (R05/R06-1)+GFI*DALG(1)*DW(1)* 
R05/(.5*DSIG(1)  * (R06  + R05))) 79266. 11*R05) 

Having  T06g  and  P06G,  MACH  is  called  to  provide  values  for  the  static 
temperature  and  static  pressure  at  station  6.  These  values  are  used  to 
compute  a new  value  for  R06.  The  absolute  value  of  the  dummy  variable 
Z3  = R06  - Z1  is  compared  with  R0LIM,  to  determine  if  convergence  has 
been  attained.  If  the  comparison  is  not  satisfactory  and  the  loop  counter 
is  less  than  NLIM,  then  the  loop  is  reentered  with  the  current  value  of 
R06.  If  the  loop  counter  equals  HLIH  and  convergence  has  not  been  obtained, 
then  the  error  message  "Failure  to  Converge  in  Density  Loop  1"  is  printed. 
The  error  is  also  recorded  and  the  run  is  not  aborted.  For  situations  of 
satisfactory  convergence,  the  message  "Density  Loop  1-cycles  (number  of 
passes  through  loop)  - error  (Z3)"  is  printed  and  calculations  continue. 


Using  the  current  value  of  T07G  as  an  approximation  for  T7G,  and  a 
subsequent  call  to  GASP,  results  in  an  approximation  for  GAM7G.  The 
stagnation  pressure  at  station  7 (P07G)  is  computed  from 

P07G  = P06G  * BPR 

and  the  counter  for  the  pressure  loop  is  initialized  at  a value  of  0. 

The  MACH  number  at  station  7 (FM7)  is  estimated  from 


FM7  = WG*DSQEr  T07G/ (GAM7G*GMU)  /(2O.7774*P07G*A(7)) 


The  estimates  of  FM7  and  GAM7G  plus  other  currently  known  quantities 
are  used  with  a call  to  the  MACH  subroutine,  whose  convergence  yields  a 
value  for  the  static  pressure  at  tunnel  station  7 (P7G).  To  go  from 
station  7 to  station  8,  the  heat  exchanger  equations  are  solved  for  the 
third  heat  exchanger.  Since  the  diffuser  pressure  loss  coefficient  CF89 
is  a known  quantity,  the  stagnation  pressure  at  tunnel  station  9 (P09G)  is 


computed  from 

P09G  = P08G  - CF89  * (P08G  - P8G) 

Under  the  assumption  of  a constant  stagnation  temperature  existing 
between  stations  3 through  11,  the  above  technique  is  also  exploited  in 
the  successive  evaluation  of  corresponding  flow  properties  for  stations 
9 through  10.  The  density  for  station  10  (R01O)  is  given  by 


R01O  = .093178  * PIOG  * GMU/TIOG 


Starting  estimates  are  obtained  for  the  MACH  number  FMll  and  density 
(R011)  at  station  11;  and  the  cotmter  for  the  second  density  loop  is 
initialized  at  a value  of  zero. 

The  value  for  R011  is  also  stored  in  the  dummy  variable  Zl,  and  the 


stagnation  pressure  at  station  11  (P011G)  is  given  by 


P011G  = P01OG  - GGII^*((1.+DSIG(2)^)*(R01O/R011-1.)+GFI*DALG(2)*DW(2)* 
R01O/(.5*DSIG(2)*(R01O+R011)))/(9266.11*R01O) 

A call  to  the  MACH  subroutine,  assuming  that  T011G  = T01G  and  letting 
GAMIOG  be  an  initial  estimate  for  GAMllG,  results  in  values  for  TllG, 

PllG,  FMll,  GAMllG,  and  CPllG,  upon  convergence. 

A new  value  for  R011  is  now  computed  from 

R011  = .093178*P11G*GMU/T11G 
and  the  dummy  variable  Z3  is  defined  by 

Z3  = R011  - Z1 

The  absolute  value  of  Z3  is  compared  with  R0LIM  to  determine  if 
convergence  has  occurred  in  the  density  loop.  If  |Z3|  > R0LIM  and  the 
current  value  of  the  loop  counter  is  less  than  NLIM,  then  the  loop  is 
reentered  with  the  present  value  of  R011.  If  the  loop  counter  equals 
HLIM  and  convergence  has  not  been  attained,  then  the  error  message  "Failure 
to  Converge  in  Density  Loop- 2"  is  printed.  The  error  is  also  recorded 
and  the  run  is  not  aborted.  For  situations  of  satisfactory  convergence, 
the  message  "Density  Loop-2-Cycles  (number  of  passes  through  loop)  - 
Error  = (Z3)"  is  printed  and  system  calculations  resume. 

Next,  FMll  is  reestlmated  from  other  known  quantities: 

FMll  = WG*DSQRT(T01G/(GAMIG*GMU))/(2O.7774*P011G*A(11)) 

and  the  MACH  subroutine  is  again  called  to  provide  refined  values  of 
TllG,  PllG,  FMll,  GAMllG,  and  CPllG. 

If  the  decision  variable  JCPR0  > 0 ,then  a new  dummy  variable  Z1  is 
defined  by 
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Z1  = R01*TIG/(.O93178*GMU)*(1.+(GAMIG-1.)*FM1  /2)**(gamIG/(GAMIG-1.)) 
and  subsequently,  Z1  becomes 

Z1  = P011G  - CF111*(P011G-P11G)  - Z1 
However,  if  JCPR0  < 0,  then  the  variable  Z1  is  defined  by 

Z1  = P011G  - CFlll*  (P011G  - PllG)  - P01G 

Note  that  if  Z1  > 0 there  is  an  implied  overshoot  of  inlet  stagnation 
pressure  as  determined  by  the  flow  conditions  at  station  11.  Since  Z1 
will  probably  never  turn  out  identically  zero  in  the  computations,  flow 
stagnation  pressure  adjustments  are  necessary: 

P011G  = P011G  - Z1 

P01OG  = P01OG  - Z1 

P09G  = P09G  - Z1 

P08G  = P08G  - Z1 

?07G  = P07G  - Z1 

The  known  static  temperature  at  station  6 is  used  with  a call  to 
subroutine  GASP  so  that  values  will  be  available  for  GAM6G  and  CP6G. 

The  desired  blower  pressure  ratio  (BPR)  can  now  be  computed  from 

BPR  = P07G/P06G 

and  the  volumetric  flow  at  station  6 (Q6G)  is  determined  from 

Q6G  = 60. *A(6)*FM6*DSQRT(GAM6G*T6G*32. 174*1545. 43/GMa) 

Having  specified  the  volumetric  flow  rate,  the  number  of  blower  sets,  and 
the  blower  rpm,  the  blower  polytropic  efficiency  (ATAB)  is  given  by 


AIAB  = . 73-7. 09843*(DABS(Q6G/BRPM/NBS-.5355))**2. 08014 


The  above  efficiency  function  is  also  presented  in  Figure  5. 

Hence,  T07G  can  be  recomputed  from 

T07G  = T06G*(BPR**((GAM6G-1.)/(AIAB*GAM6G))) 

The  pressure  loop  counter  J is  incremented  by  one,  and  the  magnitude 
of  the  stagnation  pressure  error  at  station  11  is  compared  with  the 
pressure  error  tolerance  PLIM.  If  jzi]  < PLIM,  then  calculations  resume 
at  statement  number  85.  If  |zi|  > PLIM  and  J < NLIM^then  the  pressure 
loop  repeats  itself  from  statement  80.  Alternatively,  if  J = NLIM  and  a 
pressure  error  still  exists,  then  the  message  "Failure  to  Converge  in 
Pressure  Loop-Error  = Zl"  is  written  and  the  calculations  continue  at 
statement  85,  where  AIRP  is  called  to  determine  the  constant  pressure 
specific  heat  of  ambient  air.  The  message  'Total  Passes  Through  Pressure 
Loop  = (value  of  J)  - Error  = (value  of  Zl)"  is  next  recorded. 

Subroutine  AIRP  is  called  to  determine  the  constant  pressure  specific 
heat  and  specific  heat  ratio  for  radiator  exhaust  air.  Similarly,  sub- 
routine LIQP  is  called  11  times  to  establish  specific  heats  associated 
with  the  coolant  temperatures  existing  at  the  various  reference  locations.  j 

Until  the  call  to  SUf),  all  subsequent  calculations  are  associated  with 
the  determination  of  the  values  for  the  elements  of  the  16  by  18  [AMT] 
matrix  and  the  18  x 1 [BMT]  matrix  used  in  performing  the  simultaneous 
solution  of  all  system  temperatures. 

The  matrix  equation  [AMT]  X = [BMT]  denotes  the  18  equations  used 
to  establish  energy  balances  across  system  components  expressing  a change 
in  enthalpy  between  entering  and  leaving  fluid  streams.  Energy  balances 
across  the  heat  exchangers  and  radiators  are  supplemented  by  effectiveness/ 
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temperature  change  relationships.  The  elements  of  the  [AMT]  and  [BMT] 
matrices  are  Identified  In  Table  II,  and  the  18  x 1 solution  vector 
returned  by  SIMQ  Is  an  updated  estimate  for  the  following  temperatures : 
T01G,  T02G,  T06G,  T07G,  Tl,  T2,  T3,  T4,  T6,  T8,  TIO,  T14,  T16,  T18,  T20, 
TA2,  T08G,  and  T7. 

It  should  be  noted  that  the  equivalence  statement  preceeding  state> 
ment  number  2 In  the  MAIN  program  immediately  loads  the  elements  of  X 
Into  the  appropriate  locations  of  COMMON  VAR.  Hence,  each  time  SIMQ  Is 
called  by  MAIN  all  the  sytem  temperatures  represented  in  the  vector  X 
are  updated. 

The  Final  Mach  Loop  counter  JJ  Is  Initialized  at  a value  of  zero 
and  the  dummy  variable  Z2  is  set  equal  to  FMl. 

The  cavity  inlet  static  temperature  is  now  determined  from  the 
revised  inlet  stagnation  temperature 

TIG  = BMr(l)/(l.+(GAMIG-l.)*FMl^/2.) 

and  GASP  is  called  to  provide  values  for  GAMIG  and  CFIG  consistent  with 
TIG. 

If  JCPR0  > 0,  then  the  cavity  inlet  static  pressure  becomes 
PIG  = R01*TIG/(.O93178*GMU) 

If  JCPR0  < 0,  then  the  cavity  inlet  density  is  given  by 

R01  = .093178*PIG*GMU/TIG 

The  gas  mass  flow  rate  (WG)  is  determined  from 

WG  = R01*VI*A(1) 
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and  a new  cavity  inlet  MACH  number  is  given  by 


i 

I 
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FMl  = WG*DSQKE(TIG/(GAMIG*GMU))/(20.7774*PIG*A(1)) 

The  counter  JJ  is  incremented  by  one  and  the  dummy  variable  Z3  is  defined 
by 

Z3  = Z2  - FMl 

If  the  absolute  value  of  Z3  is  less  than  DELM  then  calculations 
resume  at  statement  7.  If  MACH  number  convergence  has  not  been  attained 
and  JJ  < NLIM,  then  the  current  value  of  FMl  is  used  in  reentry  of  the 
Final  Mach  Loop  at  statement  6.  However,  if  the  MACH  number  is  not 
within  tolerance  and  JJ  = NLIM,  then  the  message  "Failed  to  Converge 
in  Final  Mach  Loop  - Error  = (value  of  Z3)"  is  written  and  calculations 
again  reach  statement  7.  Statement  7 writes  the  message  "Total  Passes  in 
Final  Mach  Loop  = (value  of  JJ)  - Error  = (value  of  Z3)". 

If  the  value  of  the  error  indicator  KS  defined  in  SIMQ  is  one,  the 
program  goes  to  statement  91  and  writes  the  error  message  "Singular  Matrix" 
and  aborts  the  case. 

The  eighteen  elements  in  the  array  NN  are  set  equal  to  -1,  and 
TD1F(KS)  = SVR(KS)  - BME(KS) 

where  KS  = 1,  2,  ...16  is  a new  dummy  variable,  SVR  is  the  array  composed 
of  system  temperatures  before  calling  SIMQ,  and  BMT  is  the  system  tem> 
perature  array  provided  by  the  call  to  SIMQ. 

If  the  absolute  value  of  any  of  the  elements  in  the  TDIF  array  is 
greater  than  the  corresponding  value  input  into  the  temperature  con- 
vergence tolerance  airray  C0NV,  then  the  appropriate  element  in  the  NN 
array  is  set  equal  to  one. 
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The  temperature  differences  recorded  in  array  TDIF  are  now  presented 
under  the  heading  of  "State  Variable  Errors."  The  message  "End  of  SI1«} 

Pass  No.  (value  of  II)"  is  recorded;  and  if  II  > NLIM  then  computations 
resume  at  statement  92  where  the  warning  "Failure  to  Converge  in  State 
Variable  Loop"  is  printed,  and  the  solution  continues  at  statement  90 
without  having  guaranteed  convergence  on  temperatures. 

However,  if  II  < NLIM,  then  each  element  of  the  NN  array  is  examined 
to  determine  whether  it  is  zero  or  positive.  If  any  element  of  NN  satisfies 
this  test  then  calculations  resume  at  statement  95,  where  the  SVR  array 
is  reset  with  corresponding  values  from  the  BMT  array,  and  the  case  re- 
peats from  statement  10.  If  all  elements  of  NN  fall  this  test,  then  the 
case  continues  at  statement  90  where  FM6  is  estimated  from 

FM6  = WG*DSQRT(T(86G/(GAM6G*GMU))/(2O.7774*P06G*A(6)) 

This  calculation  is  followed  by  a call  to  MACH  so  that  convergence  on 
F^  can  be  obtained. 

After  converting  the  number  of  blower  sets  and  the  number  of  blowers 
per  set  from  integers  to  real  numbers,  the  cavity  inlet  velocity  correction 
GC  is  determined  via  the  following  six  equations 

DPSS  = ((P07G-P06G)*T06G*28.966)/(P^6G*BRPM*BRPM*518.7*GMD*FNBPS) 

DPSB  = . 8396-3. 2323*(DABS(Q6G/(BRPM*FNBS)-. 46875)) **7.42327 
DPSB  = DPSB  * 1.  E-9 
ERR  = DPSB  - DPSS 

GC  = 11.661  E-7/(BRPM*FNBS)  + 11.589  E-5*VIM**.667/(BRPM*BRPM*FNBPS) 

GC  = ERR/GC 

Note  that  the  calculation  of  DPSB  is  derived  from  the  empirical 
blower  pressure  data  presented  on  Figure  5. 
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The  velocity  loop  counter  JV  is  incremented  by  ohe  before  the 
message  “'Pass  No  (value  of  JV)  Through  Velocity  Loop,  Correction  = (value 


of  GC)”  is  printed. 

I If  I GC  I < VLIM,  then  calculations  resume  at  statement  number  502. 

If  JV  > NLIM,  then  calculations  resume  at  statement  number  503, 

, where  the  error  message  **Failure  to  Converge  in  Velocity  Loop-Error  = 

(value  of  GC)"  is  recorded  before  calculations  resume  at  statement  number 
502. 

If  GC  < 0 and  Q6G/ (BRP1W?NBS)  < .46875,  then  the  message  "Blowers 

are  Choked  - Process  Next  Case"  is  printed  and  the  run  is  aborted. 

i 

' For  all  other  situations,  before  repeating  at  statement  number  501, 

I the  cavity  inlet  velocity  is  updated  in  the  following  manner 

I 

VIM  = VIM  + GC 
VIM  = VIM  * 3.281 

At  statement  number  502,  the  following  revisions  are  made  to  chosen 
stagnation  temperatures: 

TU3G  = T^2G 
T04G  = T02G 
T05G  = T02G 
T08G  = T07G 
T09G  = T07G 
T01OG  = T07G 
T011G  = KilG 

I 

The  blower  power  required  in  horsepower  (BLPR)  is  given  by 
BLPR=WG*.  5 (CP6G+CP7G)*T(J6G*(BPR**((1  . -2 . / (GAM6G-t€AM7G)  ) /ATAB)  - 1 . )*778 . /550 . 


I 

I 
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whose  kilowatt  equivalent  (BLFSM)  becomes 

BLPRM  = BLPR  * .7457 

It  should  also  be  noted  that  since  this  Investigation  centered  on 
the  recirculating  laser  gas  flow  In  the  wind  tunnel,  the  coolant  friction 
factors  and  pressure  drops  were  not  computed. 

The  radiator  Inlet  air  density  (R0A1  Is  computed  from 


R0AI  = 144. *PAT*AML/ (1545. 32*TA1) 

The  radiator  exit  air  density  (R0A2)  Is  Initially  assumed  the  same 
as  the  Inlet  air  density  and  the  radiator  density  loop  counter  (LL)  is 
Initialized  at  a value  of  zero.  After  setting  the  dummy  variable  Z1=R0A2 
the  exit  air  static  pressure  (PA2)  is  computed  from 

PA2  = PAI-GA*GA*((l.+DSIG(3)**2)*(R0Al/R«iA2-l.)  + 

AF*DALG (3 ) *DW (3) *R0 A1 / ( . 5*DSIG (3 ) *(R0A1+R0A2) ) ) / 

(R0A1*2. *32. 174*144.) 

The  outlet  air  density  Is  now  recomputed  from 

R0A2  = 144. *PA2*AML/ (1545. 32*TA2) 


The  loop  counter  is  subsequently  incremented  by  one  and  the  dummy  variable 
Z3  Is  defined  by 


current  value  of  R0A2  as  the  initial  guess  in  the  loop.  However,  if 
LL  = NLIM,  then  the  error  message  "Failure  to  Converge  in  Aux.  Density 
Loop  - Error  = (value  of  Z3)"  is  recorded  before  resuming  at  statement 
number  39.  The  run  is  not  aborted. 

When  convergence  on  density  has  been  attained,  the  message  "Total 
Passes  Through  Aux.  Density  Loop  = (value  of  LL)  - Error  = (value  of  Z3)" 
is  printed  before  resuming  calculations  at  statement  number  39. 

The  fan  power  required  in  horsepower  (PF)  is  given  by 

PF  = WA*CPA2*TA2*((PAI/PA2)**((1.1./GAM2A)/ATAP)-1.)*778./550. 

whose  kilowatt  equivalent  (PFM)  becomes 

PFM  = PF  * .7457 

Tunnel  gas  density  at  station  6 (R06G)  is  determined  from 
R06G  = .093178  * P6G  * GMU/T6G 

and  the  corrected  volumetric  flow  rate  at  this  station  (QC0RR)  is  given 
by 

QC0RR  = 6O.*WG*DSQRT(1.4*GMU*518.7/(GAM6G*28.97*T06G))/R06G 

The  elements  of  the  SVR  array  are  given  values  matching  values  in 
corresponding  elements  of  the  array  and  the  total  heat  transfer  rate 
in  BTU/HR  for  the  first  heat  exchange  (QDI)  is  computed  from 

QDI  = WI  * 1800.*(CP2  + CP4)  * (T4-T2) 

The  heat  transfer  rates  for  the  second  and  third  heat  exchanger  and  radiator 
system  are  given,  respectively,  by 


QDII  = WII  * 1800  . * (CP2+CP6)*(T6-T2) 

QDIII  = Will  * 1800  . * (CP2+CP7)*(T7-T2) 

QDA  = W3  * 1800  . * (CP3+CP1)*(T3-T1) 

The  complete  program  flow  charts  are  presented  in  Table  II.  An  Input  List 
for  a typical  example  and  the  corresponding  Output  Results  are  presented 
in  Table  III.  Appendix  D presents  the  Program  Listing. 

Appendix  E presents  some  sample  results  obtained  for  flow  variables 
around  the  system  for  the  case  of  three  heat  exchangers.  We  show  the  re- 
sults for  static  temperature  (Figure  El) , total  temperature  (Figure  E2) , 
density  (Figure  E3) , static  pressure  (Figure  E4) , total  pressure  (Figure  E5) , 
velocity  (Figure  E6) , and  Mach  number  (Figure  E7).  The  results  are  for 
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Z3  = C.Z2  - Z2  - 4 Z^  23  )/2Z3 
Zg  = DMINl  (Z^,  Z3) 


T2G0LD  = T2G 


RECOMPUTE  T2G 
T2GDIF  = T2G0LD  - T2G 
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COMPUTE 
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"Failure  to  Converge 
In  Static  Temp  Loop  1 
- Cycles  = I - Error 
= T2GD1F" 


Go  To  2 


Go  To  12000 


First  Diffuser 


P03G  * P02G  - CF23  (P02G  - P2G) 

Assume: 

FM,  = FM2  A(2)/A(3) 

GAfflC  = GAM2G 

Call  MACH:  For  a typical  station  i, 

MACH  aided  by  GASP,  Iterates  on  FM.  up 
to  NLIM  times  holding  FN,  DELM,  NlIm, 
P0iG,  T0iG,  A(i),  GMU,  WG  is  constants, 
while  primary  values  for  GAMIG,  PiC,  TiC, 
CPiC 


Repeat  above  techniques 

for  second  and  third  diffusers 
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COMPUTE  R05 
ASSUME  R06  = R05 
COMPUTE  APPROXIMATE  FM6 


1 = 0 


Zj^  = R06 

Density  Loop  #1. 

P06G  = P05G  - GGI  + GGI  *etc. 

Across  the  first 

Assume  GAM6G  = GAM5G 

Call  MACH 

COMPUTE  R06 

heat  exchanger 

1 = 1 + 1 

Zg  = R06G  - Z1 

Z,  < R0LIM 


"FAILURE  TO  CONVERGE  IN 
DENSITY  LOOP  1 - ERROR 
= (23)" 


Go  To  70 


Assuming  T7G  = T07G  Call  GASP  to 
obtain  GAM7G  and  CP7G 


Write  "DENSITY  LOOP  1-CYCLES=  CD 
- ERROR  = (Z_)" 

P07G  = P06G  XBPR) 


J = 0 

80 ♦ 

ESTIMATE  FM7 

Call  MACH  to  obtain  converged 
values  for  FM7,  GAM7G,  P7G,  T7G, 
CP7G 
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Using  techniques  employed  for  first 
diffuser,  perform  similar  calculations 
for  thermal  stations  8,  9,  and  10 


Compute  R01OG 
Assume  R011G  = R01OG 
Estimate  FMll 


1 = 0 


Z1  = R011G 

1 

• Density  Loop  #2, 

P011G  = P01OG  - GGII*GGII*etc. 

across  second 

Assume  GAMllG  = GAMIOG 

1 Heat  Exchanger 

Call  MACH 

1 

compute  R011 

1 

1 

1 = 1 + 1 

1 

Z3  = R011G  - Z1 

1 

1 

I<NLIM 


lZ3|<  R0LIM 


"Failure  to  Converge 
In  Density  Loop  2- 
Error  = (Z^)" 


Go  to  75 


Estimate  FMll 


WRITE;  "Density  Loop  2-Cycles=  (I) 
- Error  = (Z^)" 


Using  P011G,  T011G,  estimated  FMll, 
and  GAMllG  Call  MACH  to  Converge 
on  FMll,  GAMllG,  PllG,  TUG,  and 
CPllG. 


Compute  Z1 
Redefine  Z1 

Zj=P011G-CF111CP011G-P11G)-Z1 


Z1=P011G-CF111(P011G- 

P11G)-P01G 


No  Yes 
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COMPUTE  PIG 
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WG(CPLC.  + CF2(;)(T01G)  + (-WG(CPIG  + CP2G))(T02G)  = QS-. 948(PLKW)  ( 1 . /EFFL- 
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Chapter  V 
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ANALYSIS  OF  OPTICAL  RESONATORS  WITH  TILTED  SPHERICAL  MIRRORS 
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This  study  has  employed  closed-form  analytical  studies  (of  a two- 
dimensional  approximation) , extensions  of  previously  existing  computer 
codes,  and  newly  prepared  three-dimensional  computer  programs.  This 
report  will  be  concerned  primarily  with  a summary  of  major  aspects  of 
the  study  and  its  conclusions;  details  have  been  furnished  separately. 
The  work  has  been  coordinated  with  a MIRADCOM  experimental  investigation 
employing  interferometry;  the  theoretical-computational  and  experimental 
results  are  in  satisfactory  agreement. 

The  development  of  theoretical  and  computational  methods  not  only 
affords  insight  into  observed  trends,  but  provides  a capability  for  de- 
termining expected  optical  quality  properties  of  additional  detailed 
designs  without  the  need  for  an  experimental  study  for  each  such  design. 

The  investigations  were  primarily  concerned  with  the  effect,  on  an 
initially  collimated  beam,  of  one  complete  passage  from  convex  to  con- 
cave mirror,  as  indicated  schematically  in  Figure  1.  The  two  types  of 
configurations,  distinguished  by  the  difference  in  relative  signs  of 
tilt  angles  of  the  two  spherical  mirrors,  are  referred  to  as  "U-type" 
and  "Z-type."  The  basic  design  equations,  as  given  in  Reference  1,  do 
not  distinguish  between  these  two  types  of  configurations.  One  of  the 
purposes  of  the  present  study  was  to  compare  optical-quality  properties 
of  the  two  types.  It  turns  out  that  the  Z-type  configuration  is  clearly 
to  be  preferred  to  the  U-type  configuration  as  regards  output  optical 
quality. 


I 
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of  "U-Type 
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Two-Dimensional  Approximation 


By  using  a local  wave  front  curvature  approach  in  the  two-dimen- 
sional approximation,  it  was  possible  to  derive  a closed  form  approximate 
expression  for  the  optical  path  difference,  here  labelled  z,  as  a function 
of  lateral  displacement  y,  and  of  other  parameters  of  the  resonator: 

2 = — n — I - I R,  I sin  0^  + R sin  e„  y^  . 

R2  cos^  02  L J 

The  above  expression  is  perhaps  deceptively  simple  in  appearance,  since 
the  value  of  02  which  appears  in  it  must  be  determined  from  additional 
equations,  which  are  given  in  Reference  1.  The  points  to  which  attention 
are  here  drawn  are: 

3 

(1)  The  z-dependence  is  of  the  form  Y > i-e.  of  third  power  in 
transverse  position  y. 

(2)  The  choice  of  signs  in  the  numerator  is  such  that  the  Z-type 
configuration  is  clearly  better,  as  regards  optical  quality,  than  the 
U-type  configuration. 

(3)  The  dependence  on  mirror  radii  of  curvature  is,  roughly  speaking, 
of  inverse-square  type. 

In  addition  to  the  closed-form  analysis  leading  to  the  equation  given 
above,  two-dimensional  numerical  calculations  were  carried  out,  which 
tended  to  confirm  the  above  conclusions. 

The  equation  given  above  could  be  rewritten  in  the  form 
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where  Y is  used  to  represent  the  maximum  value  of  y,  measured  from  center 

to  edge,  and  the  subscripts  cp  refer  to  the  center-to-peak  deviation. 

The  optical  quality  is  essentially  determined  by  root-mean-square  values 

of  the  optical-path  deviations;  these  depend,  of  course,  on  the  reference 

plane  with  respect  to  which  they  are  measured.  We  will  use  z to 

refer  to  rms  values  with  no  tilt  of  the  reference  plane,  i.e.,  the  re 

ference  plane  is  chosen  as  strictly  perpendicular  to  the  output  central 

ray.  The  actual  optical  properties  will  be  determined  by  the  rms  deviations 

with  respect  to  a reference  plane  whose  tilt  is  optimized;  the  corresponding 

value  of  z will  be  labelled  as  z .It  was  found  that  in  the  two- 

rms ,opt 

dimensional  approximation,  the  following  equations  apply: 


z 

rms ,nt 

z 

rms ,opt 


0.378  z , 
cp 

• 0.4  z 

rms ,nt 


Specific  numerical  predictions  of  the  above  two-dimensional  equations 
are  listed  in  Table  I for  a situation  corresponding  to  an  experimental 
study,  for  a range  of  values  of  convex-mirror  tilt  angles  9^.  Three- 
dimensional  predictions  for  the  same  cases  will  be  given  below  for 
comparison. 
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Table  I. 


Two-Dimensional  Approximate  Predictions  of  Optical  Path  Differences  in 
Microns,  for  a Z-Conf iguration  Travelling  Wave  Resonator  with  R^  = -290 
cm,  R„  = 675  cm,  Y = y =7.62  cm,  for  Various  Values  of  Convex  Mirror 
Tilt  Lgle 

The  second  column  gives  the  center-to-edge  values,  the  third  column 
gives  the  rms  OPD  for  an  untilted  reference  plane,  while  the  fourth  column 
gives  the  rms  OPD  relative  to  an  optimally-tilted  reference  plane. 
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Three-Dimensional  Calculations 


The  major  portion  of  this  study  has  been  concerned  with  developing 
and  applying  three-dimensional  ray-tracing  computational  methods. 

A collimated  beam  is  assumed  to  be  incident  on  the  convex  mirror. 

Given  x and  y coordinates  of  an  incident  ray  measured  relative  to  the 
central  ray,  the  computer  program  calculates  the  path  of  the  ray  through 
the  system  and  determines  (a)  direction  cosines  after  reflection  from 
the  concave  mirror,  measured  in  a coordinate  system  with  the  positive 
z-axis  parallel  to  the  central  ray  and  (b)  the  optical  path  difference 
(OPD)  between  the  ray  considered  and  the  central  ray.  The  OPD's  are  of 
primary  interest,  and  are  calculated  for  a position  close  to  the  concave 
mirror.  It  was  found  necessary  to  utilize  double  precision  arithmetic 
in  order  to  obtain  reliable  values  of  OPD's. 

Included  in  the  input  data  are  half-widths,  in  the  x and  y directions, 
of  the  desired  output  beam  and  the  number  of  mesh  points  along  x and  y 
(usually  9x9).  Coordinates  x and  y of  incident  rays  are  obtained  by 
dividing  corresponding  desired  coordinates  of  output  rays  by  magnifications 
and  M^,  which  are  computed  by  the  program  from  input  values  of  , R2, 
and  9^.  Unless  otherwise  specified,  the  program  uses  the  values  of  mirror 
spacing  L and  of  concave  mirror  tilt  angle  62  which  result  in  a collimated 
output  beam,  values  of  these  parameters  being  determined  by  an  initial 
portion  of  the  program.  The  first  page  of  computer  output  is  a table  of 
calculated  OPD's  over  the  specified  mesh;  the  OPD's  are  given  in  microns, 
while  mirror  spacing  and  radii  of  curvature  are  in  centimeters. 

It  was  found  that  there  is  a good  deal  of  order  in  the  calculated 
OPD's  as  might  be  expected,  and  that  their  functional  dependence  on  x and 
y can  be  rather  well  represented  by  a relatively  small  number  of  terms  of 


^ 3 

a Taylor's  expansion.  Of  primary  importance  are  terms  y and  02^^ 

2 

X y;  values  of  the  coefficients  nnd  02^^  are  not  the  same.  The  quad- 
2 2 

ratic  terms  C2Q  x and  0^2  y can,  of  course,  be  important  if  the  system 
is  not  properly  adjusted.  These  terms  have  been  included  in  the  function 
fitting  process  in  order  to  be  able  to  investigate  the  effects  of  ad- 
justing L and  @2  to  values  slightly  different  from  their  ideal  values. 

2 2 

Also  allowed  for  is  a cross-term  C22  x y as  well  as  fourth-order  terms 

4 4 

of  the  form  C, „ x and  C„,  y . 

40  04 

The  computer  program  evaluates  the  series  coefficients  from  the 
table  of  calculated  OPD's  and  prints  these.  It  also  calculates  and  prints 
a table  of  residuals  showing  the  difference  between  the  directly  calculated 
OPD's  and  values  obtained  from  the  truncated  series  expansion;  these  seem 
typically  to  be  of  the  order  of  one  percent  or  less  of  the  OPD's  them- 
selves. The  coefficient  corresponding  to  a reference  plane  defined 

by  z = y,  which  minimizes  the  rms  OPd,  is  also  determined  and  printed. 

Also  a table  is  printed  of  the  rms  values  of  OPD  for  various  values  of 
reference  beam  tilt  measured  in  units  of  the  optimal  value. 

If  L and/or  are  set  to  values  which  are  incremented  slightly  from 

their  proper  values  there  will  be  wave-front  curvature  in  either  or  usually 
both  the  X and  y directions,  i.e.,  C2Q  and/or  Cq2  will  differ  appreciably 
from  zero.  Expected  values  of  these  coefficients  can  be  derived  analytically 
and  compared  with  results  of  the  function  fitting  process  applied  to  the 
ray  tracing  OPD  calculations.  Agreement  noted  between  analytically  pre- 
dicted and  "function-fitting"  calculated  values  is  felt  to  be  a confirmation 

•>  of  proper  functioning  of  the  computer  program. 

■ 

The  primary  experimental  data  regarding  optical  quality  from  tilted- 
spherical  mirror  resonator  are  in  the  form  of  interf erograms . While 
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providing  very  previse  and  detailed  information  about  the  optical  systems, 
interf erograms  do  not  immediately  (without  an  intervening  measurement  and 
data-reduction  process)  lead  to  quantities  predicted  by  the  calculations. 
For  the  purpose  of  comparing  experiment  and  calculations,  it,  therefore, 
seemed  useful  to  convert  the  calculated  OPD  results  into  the  form  of  com- 
puter simulated  quasi-interf erograms . For  this  purpose,  the  computer 
generates  a fairly  large  (49  x 49)  array  of  OPD's  obtained  by  evaluation 
of  the  truncated  series  expansion  at  each  of  the  array  points.  The  array 
of  numerical  values  is  then  converted  to  an  arraj'  of  alphabetic  characters 
or  blanks  and  used  to  generate  a one-page  printer  plot  whose  general 
appearance  simulates  that  of  an  interf erogram.  Successive  characters  of 
the  alphabet  correspond  to  incremental  OPD's  of  one  wavelength  (0.6328 
micron) . The  interspersing  of  blanks  with  letters  of  the  alphabet  has 
the  result  that  (at  least  in  the  central  portion  of  the  plot)  light  areas 
are  interspersed  with  dark  areas,  and  hence,  simulate  an  interf erogram. 

An  example  of  a computer  generated  quasi-interf erogram  is  given  in  Figure 

2. 


I 


I 


66 


-LI 


44 


< '<  L L N V .S*  *.  ^ -I  L < ‘ 

< '_L  ■*‘'''  N OCCOCCCCO  N*. LL  < 

L L *.  N s c 0 0 0 0 0 0 c c c : 0 c ■:  c c c s " i.  l 

Li.  00000  r. 0 0 0 0 ll 

N 00  0 0 0 0 c ; •.  s " 

0 0 0 p s p c p p p ; C v -a 


MM  V r, 

V S N \ 0 C 0 

\ coo 

>;  S N 0 C 0 

V rj  *)  C 0 0 C 
L \ N 0 C 3 C 
\ 'J  0 0 0 0 0 
N 0 0 C 0 0 

T' 


p p p o p p p 
BPPPOOPCPDPpP 
poppppppppppppp 
PPPPPCPPPPPPPpPPP 
pppopcpooppcpppppop 
popoppppppppppppcpp 
ppopppppoppopcppppp 
POBppPpPpcpppPpBppp 
opppppppoopppppps 


0 00 
0 0 0 0 
•w  J 'J 


00  0 

- ^ P r; 


N 0 0 C 0 0 o p P p p p P p = D p p : p p p = 0 0 C C 0 S 

V : COCO  p p p p p p p p p p = p p 0 0 c 0 0 

N 0 00  coo  0 0 00  CO 

0 0 0 'P  C 0 u 0 p O'  N 

C C 0 C 0 0 0 0 C 0 0 0 C 0 C C C 0 

0 c c 0 0 0 0 0 c 0 0 0 c c o o c o : c c c c o c o c 

\ COCOOOCOCOCOOOCCOOCCOO'OOOOOO-:  V 

N 0 0 0 0 0 0 C 0 0 0 C C 0 0 C 0 C 0 0 

N N 

M.SNN  '.".  S 

^ S N N \ \ •,  \ \ \ \ S N N N >.  N N S N \ S \ ■. S L L L \ 

N \ \ •. \ S 'i  \ 'i  \ N N N N N \ N N ‘i  L N *; •.  S L N 

S S N \ S N N N % N L \ N U S N .‘1  *.  S N '4  N \ S L N N ‘i  \ N \ S'  S S S S S *.  S ,S  S \ 

S,S?4N'i‘,  S'i  NSSNS'.S'. 

S N S S S S K <■. S 

»i  y V « yv<  M y V ■,»  V V V -J  v y v y y y 

Vj  *1  MV  y M M y V V y y y M V M y v y m y y M y m v v a y •_ 

>4  y M M y y y v v y y -ii  y y y y v ■•>  y y -y  y y v v y y v i; 

>4  y y M V y VI  y ;A  M v v y y j y vj 

N M y y y y y y y y y -j  y 'j  >, 


N N 

y V V y y y 

V y \j  s*  M V* 

N\ 

S N H 

M y y V V 

LLLLLLLLLLL 

y y V .• 

SNN 

N N N 

lY  M 

LLLLLLLLLLLLLLL 

y : « 

NS  N 

NN 

y y y 

LLLLLLLLLLL'- LLLLL 

y y 4 V 

SN 

N N N 

y y y y 

LLLLLLLLLLLLL LLLL 

y V,  y L' 

NSS 

M N N 

y y y y 

LLLLLLLLLLLLLLLLL 

y S V 

SSN 

C NN 

V V y 

LLLLLLLLLLLLLLLLL 

\ ^ y 

‘It.  0 

0 0 S.S  LLLLLLLLLLLLLLL 

0 0 NS  LLLLLLLLLLLLL 

CO  N 'N  y V y M L L L L L L L 

° CO  NS  y y y y 
P ^ 0 0 \ *1  y V V y M My 


•'I  NS  CO 

I y •••  I I p.  ."I 


y V V V 
V y M 

M *4  V ■«  '4  f i. 


oc  = = 


V y y y y V V *4  v m v *4  m v y y y 4^  4^  4 ^ 


V V V y V V V V 


■4  Ol  - = 0 0 N ^4  N N N S N S 0 0 = = ; O = 

9=  'JO  pp  000  SSNNSN.NNSNNSSS  N 0 0 0 =P  JO  -- 


Figure  2.  A Typical  Quasl-interferogram.  Here  L and  9„  are  properly 
adjusted  and  reference  beam  tilt  has  its  optioal  value. 
Note  the  symmetry  of  the  pattern,  a property  which  was 
found  to  be  typical  of  proper  adjustment  of  L and  d^. 
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The  computer  program  will  optionally  produce  multiple  quasi-inter- 
gerograms,  corresponding  to  a specified  set  of  reference  beam  tilts,  from 
a single  set  of  OPD  calculations.  The  observed  progression  of  shapes  as 
tilt  is  systematically  varied  has  proven  interesting  and  useful  since, 
of  course,  reference  beam  tilt  can  also  be  varied  experimentally. 

Inspection  of  quasi- interferograms  leads  to  some  interesting  ob- 
servations for  a properly-aligned  system  (which  was  treated  computationally 
prior  to  investigating  effects  of  incremented  values  of  L and  ^2^' 

(1)  There  is  symmetry  in  x,  as  would  be  expected  since  the  entire 
optical  system  is  assumed  to  have  such  S5nimietry. 

(2)  For  Z-type  configurations,  the  pattern  is  symmetric  in  y to 

a fairly  high  degree  of  approximation  (the  OPD's  are  approximately  anti- 
symmetric) . 

(3)  For  Z-type  configurations  there  is  a regular  progression  of 
shapes  as  reference  beam  tilt  is  increased  from  zero  to  its  optimal 
value  and  beyond.  Specifically,  the  pattern  changes  from  a single  central 
oval  to  a pair  of  ovals,  symmetrically  spaced  about  y = 0,  which  move 
further  apart  and  are  separated  by  an  increasing  number  of  fringes. 

The  properties  just  noted  should  be  useful  in  experimental  adjust- 
ment of  L and  since  the  symmetry  in  y seems  to  be  a rather  good 
"signature."  Calculations  made  with  values  of  L and/or  9^  which  are  in- 
cremented from  their  ideal  values  produce  quasi-interf erograms  which  are 


quite  noticeably  lacking  in  the  y-s}nnmetry  property. 

A number  of  calculations  were  made  for  9^^  = 45°,  for  various  values 

of  AL  and  A02  (as  well  as  reference  beam  tilts) . One  can  reduce  to  zero 

2 2 

the  coefficient  of  either  the  x or  y term  by  suitable  choice  of  one  of 


I 


to  zero  of  the  C2Q  x term  shows  up  most  clearly;  one  notes  from  the  plot 

that  there  is  very  little  OPD  variation  along  x for  y = 0.  When  the  co- 

2 

efficient  of  y is  reduced  to  zero,  the  corresponding  quasi-interf erogram 

is  somewhat  more  involved,  since  there  is  still  an  appreciable  amount 

of  aberration  present  associated  with  other  expansion  terms.  What  is 

especially  noticeable  is  that  the  y-symmetry  is  decidedly  absent;  this 

emphasizes  usefulness  of  the  y-symmetry  property  in  making  experimental 

2 

adjustments.  If  one  reverses  the  signs  of  both  AL  and  A02,  the  y coefficient 
still  vanishes,  there  is  still  a lack  of  y-symmetry,  and  the  plot  is 
essentially  just  the  mirror  image  of  the  plot  obtained  without  reversal 
of  signs.  This  mirror  image  property  applies  for  any  pair  of  magni'udes 
of  AL  and  A62.  In  the  special  case  of  zero  magnitudes  cf  both  these  in- 
crements, the  mirror  image  of  the  pattern  is  simply  (to  a rather  good 
approximation)  identical  t;lth  the  pattern  itself;  that  is  to  say,  the  y- 
symmetry  property  is  characteristic  of  proper  adjustment  of  L and  02- 
For  cases  where  comparisons  have  been  made,  it  appears  that  the 
three-dimensional  ray  tracing  calculations  predict  optical  quality  para- 
meters which  are  not  greatly  different  from  those  obtained  by  the  much 
simpler  approach  based  on  the  two-dimensional  approximation.  Some 
specifics  will  be  given  for  one  case.  For  the  mirror  parameters  associated 
with  the  experimental  studies,  three  dimensional  ray  tracing  calculations 
have  been  carried  out  for  a range  of  values  of  0^;  results  are  listed  in 
Table  II.  These  results  may  be  directly  compared  with  the  two-dimensional 
predictions  of  the  same  case  as  given  in  Table  I.  The  3D  predictions  of 
the  optimized  rms  OPD  range  from  only  some  25%  to  some  50%  larger  than 
the  2D  predictions. 
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Table  II. 

Three-Dimensional  Ray  Tracing  Predictions  of  Optical  Path  Differences, 

in  Microns,  for  a Z-conf iguration  Travelling  Wave  Resonator  with  R^^  = 

-290  cm,  R-  = 675  cm,  x = y =7.62  cm,  for  Various  Values  of  Convex 
2 max  max 

Mirror  Tilt  Angle  0^, 

The  second  column  gives  the  center-to-edge  values  (taken  along  y 


for  X = 0)  ; 

center-to-corner  values 

are  somewhat 

larger 

but  are  not 

listed  here 

. The  third  column  gives 

the  rms  OPD 

for  an 

ultilted  refer 

ence  plane,  while  the  fourth  column 

optimally-tilted  reference  plane. 

gives  the  rms 

OPD  relative  to  an 

9j^(deg) 

z 

z 

z 

cp 

rms ,nt 

rms , opt 

10 

0.393 

0.230 

0.091 

20 

0.855 

0.496 

0.194 

30 

1.481 

0.848 

0.330 

45 

3.171 

1.764 

0.678 

50 

4.171 

2.287 

0.876 

55 

5.626 

3.031 

1.157 

60 

7.892 

4.159 

1.582 

70 

19.450 

9.529 

3.667 

Summary 


1.  A closed  form  expression  was  derived  and  confirmed  for  optical 
path  difference  in  a two-dimensional  approximation  as  a function  of 
various  resonator  parameters. 

2.  The  closed  form  expression  was  confirmed  by  numerical  cal- 
culations in  both  two  and  three  dimensions. 

3.  It  was  found  that  the  Z-type  configuration  is  clearly  to  be 
preferred  to  the  U-type  configuration  as  regards  optical  quality. 

4.  For  the  two-dimensional  case,  expressions  were  derived  for  the 
root-raean-square  optical  path  difference,  which  is  the  proper  measure  of 
optical  quality  degradation.  It  was  found  that  the  rms  deviation  is 
substantially  less  than  the  maximum  deviation. 

5.  A computer  program  was  prepared  for  three-dimensional  ray 
tracing  calculations  of  optical  path  differences. 

6.  The  3D  computer  program  was  checked  in  various  ways,  including 
comparison  to  separate  2D  calculations,  and  comparison  to  analytical 
predictions  for  effects  of  varying  L and  from  their  proper  values. 

7.  The  3D  program  was  extended  to  extract  Taylor's  series  ex- 
pansion coefficients  for  OPD's  and  to  use  these  to  generate  large  (49  x 
49)  arrays  of  OPD's  for  various  values  of  reference  beam  tilt  angle. 

8.  The  program  was  arranged  to  plot  quasi-interf erograms  from  the 
large  arrays  of  calculated  OPD's. 

9.  Various  effects  were  investigated  by  performing  series  of  3D 
computer  runs. 

10.  For  properly  adjusted  L and  the  quasi-interf erograms  were 
found  to  range  from  a central  oval  to  a symmetrically  arranged  pair  of 


ovals  as  the  reference  beam  tilt  is  increased. 


; 


11.  Improper  adjustment  of  L was  found  to  result  in  introduction 
of  wave  front  curvature  of  the  same  sign  in  both  x and  y coordinates. 

12.  Improper  adjustment  of  62  was  found  to  result  in  introduction 
of  wave  front  curvature  of  opposite  signs  for  x and  y coordinates. 

13.  Reversal  of  sign  of  incremental  values  of  L and  62  was  found 
to  result  in  inverting  the  quasi-interf erogram  along  the  y dimension. 

14.  Proper  adjustment  of  L and  02  was  found  to  lead  to  quasi- 
interf  erograms  which  are  symmetric  in  y (as  well  as  x) . The  y-symmetry 
property  seems  to  be  a useful  "signature"  for  use  in  experimental  adjust- 
ments. 

15.  Numerical  predictions  were  made  for  rms  OPD  variations  for 
selected  cases.  It  was  found  that  the  full  3D  rms  OPD's  were  typically 
some  tens  of  percent  larger  than  the  2D  values. 
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Section  1 

Presented  at  SPIE  Advances  in  Laser  Technology  1978,  Bellingham,  Washington,  March  1978 


GAS  DYNAMIC  AND  ACOUSTIC  MANAGEMENT  FOR  VISIBLE  WAVELENGTH  LASERS 

' Cornelius  C.  Shih 

Thu  University  ol  Alvbjind  in  Huntsville 

HuntsV'lle,  Alebdinti 
and 

Charles  M.  Cason 

U S Aimy  Missile  Resejieh  and  Oeveloftment  Command 
rsi'd-.iiiiii  Aisiiiial.  Aljtiaiiia 


Alibi  I tle't 

rriterin  for  ''hiiil  .-ind  themitil  propert  ius  lii’l  iin.  at  in>;  tlic  hasuline  flotv  hoiiionciicity,  siicli  is  those  for 
.'i/'r,  M’/r,  ",1  / . and  '11/11  ts  i 1 1 he  cstahl  ished.  These  arc  basesl  on  iiietUiun  opt  ical  eharaet-  rist  ics  and  re- 
>)iuteinents  in  terms  ol  w.avt'lcnoth,  pressure,  ami  teinperatiire  of  the  nas  eieUituii  associate'  ivith  visible  tvave- 
lenitth  lasers.  In  meet  tlicse  criteria,  various  mcrliods  Tor  comlirioninu  tht  baseline  flow  from  t'le  stand- 
point of  itas  dsTiamic  and  acoustic  teehnoloftics  will  I'e  [iresenfed  and  Jiscuss-  1.  Hie  merits  of  open  and 
closed  cvcies  bu  the  baseline  flow  will  he  evaluated  through  consideration  of  gas  utilization  efficiency 
ami  component  ret|u  1 rements . I'hcsc  criteria  become  acoustic  dominated  for  pulsed  lasers.  Ihe  piil-e  repeti- 
■ion  fret|iiency  rei(uired  for  a given  laser  defines  the  clearing  time  allowed  restore  the  original  base  1 .nc 
ilow.  \ parallel  consideration  becomes  necessary  to  account  for  tlie  pulse  input  |ierturhat  ion.  Solutions  to 
■icoiistic  management  problems  must  be  obtained  by  considering  all  sources  of  reflection,  acoustic  '.'liaractcris- 
t ics  of  open  and  closeel  cvcles  m terms  of  wave  propagation,  attenuation,  and  dissipation. 


Introduct ion 


In  re-vent  ye;;^,  visinie  wavelength  lasers  of  KrI  , \el',  anil  ilgfl  have  wide-spread  interest  in  the  field  of 
high  energy  laser  tech.noiogy  cause  of  the  potential  a[ipl  icat  ions . Tb.ese  eisible  lasers  with  wai  e lengtiis 
raiivinv  from  to  one  micron  are  geiieralli-  'wnown  to  attain  lasing  conditions  suitaMv  at  the  tc"inerarures 

■u'  ■pe'"'K  .;ilii''’K.  Ine  concept  ol'  repet  it  ieeh  pulse'd  energy  input  througl.  the  use  of  an  eiectren  ' I'am  or 

seif  sustained  discharge  into  the  laser  i litv  has  been  shown  to  :c  .ai  efluunt  .ir.d  compact  rieaiis  of  achiev- 
ing hirli  power  leiels  in  Argon  nid  Helium  at  one  to  five  atmospheric  pressures.  In  such  i system,  the  I -K  uii, 
throng'  s condaru's.  supiilics  direct  piimiiinr  energy  to  \rgon  and  tilso  produces  a plasma  in  the  laser  cavity, 
'veross  the  plasma,  a sustainer  voltage  is  .gipl  icd  at  an  adjusted  field  strength  to  e,\cite  the  laser  states 
■iith  optimum  piciping.  If  t!;e  lasing  pulse  duration  is  .ippro.\imatcl>  euual  to  the  rel.a.vation  time  ot  the 
lower  l.ising  st.ite,  the  oi'tinuin  lasing  eiitput  is  achieved.  iVi  the  other  liand . shorter  pulse.s  will  cause  a 
premature  self  teniiination  ol  l.ising  pregess,  ami  longer  pulses  will  result  ei  gas  heating  and  re.iuction  ol 
the  lower  state  ca[i.-icity.  ihe  pulse  duration  is  considered  to  he  approv  imatt  ly  one  a second  for  the  gas 
coinpo'.iion  ami  teinperatiire  of  interest. 


In  the  operation  of  electrica 
the  vle'.e T pment  ol  pressure  and 
responsible  for  producing  aceust 
',iy..illv  prouuced  dens  i tv  fluctua 
' ' • ' ' ' . To  avoid  these  d 

(i.dsev'  duty  cycle  of  sufficient 
eificunt  operation  of  the  visiii 
■ icoiist  1 management  of  flic  laser- 
open  Iblow-Jowni  or  ciosevl  cycle 
practic.illy  at  about  100  .Joules 
length  ‘if  laser  cavity  along  the 


llv  pulsed  lasers,  the  ahriint  deposition  of  cnergv  in  the  laser  mevlia  c.au.ses 
temnerature  vari.itions.  Tl-.c  resulting  pressure  and  temperature  gradients  .ire 
ical  perturbations.  I'ii'tic.il  beiun  luality  is  known  to  bo  degraded  bv  acous- , 
tions  as  noted  In-  previous  invest  ig.it  ion.-  part  icul.irly  foi  fii  la-ers  -*l.^-•1 
elects,  the  heating  of  laser  gaies  -'lUst  by  .iccommovlated  In  both  applvuig  a 
.luration  aiivl  imposing  i flow  of  rliv  _ase-  through  the  gavilv.  riieietore, 

Iv  wavelength  pulsed  lasers  reuuii'.’s  serious  .ittenrion  to  gas  cvai.iirig  and 
media  in  i 'le  flow  systems.  Ihc  flow  svstv-ns  under  cons  ulerat  ion  re  cither 
I c iiculat.'r ) tv  pe.  Mie  power  input  for  these  lasers  of  interest  i.-  Iiiiiircvl 
per  liter  of  envitv  volume  under  various  oneralional  constraines,  i.iiile  the 
oiitical  .i\is  is  ciioscn  at  100  cm  for  presv'Ot  stiwlv. 


This  paper  i.s  intended  to  focus  attention  on  technical  issues  'ertinent  to  the  gas  dvaiainic  and  ac.>ustic 
■luinagcnKnt  lor  the  flow  systems  of  the  high  powei-  vi-iihle  wavelength  laser  with  repef i t ivel v pulse;  -lovlcs  ot 
operation  under  the  above  mentioned  constrains  on  the  laser  parameters.  .Spec  i flea  1 Iv,  issues  to  In  dis- 
cussed are  as  follows;  medium  hoiiiogeneifv  criteria;  methoilology  of  gas  vivn.-i.mic  .nul  ;icou.-tic  management  of 
the  b.-isel  me  flow;  lerits  of  open  .ind  closed  cycle  flow  systems 


In  this  study,  the  energy'  deposition  in  the  laser  eas  uavily  is  .issumed  to  he  for  the  duration  ol  one  u 
second  as  the  pumping  houni'ary  condition  rcprcieiiv.ii  ivc  of  desirable  e-bemn.  e-be.im  plus  discharge,  or  ex 
ternallv  initiatevl  TTA  approaches . However,  prohlems  of  electric  pumping,  .ircing  limits,  .md  i.inctiv 
detail-  for  specific  electric  vlischarge  l.isor  ga.s  sv-tems  arc  not  considered  in  tlie  paper. 
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SPIE  Vn!  13S  •ifj'/Sfit.es  in  Lnsi"  Etfciniijiofjy  iEniph,isi/iny  Gdseous  Ljsersi  f 19781 


SHIH, UASON 


Hiisclinc  Mow  Homotjcneity  Critcri.i 


Fluid  and  themil  properties  povcmini;  the  baseline  flow  liomopcne i t v of  liieh  power  lasers  are  closelp 


associated  with  the  radiation  intensitv  ratio  in  defininp  the  beam  uiialitv.  the  intcnsiti  ratio,  I/I  in 
the  far  field  where  refers  to  tlie  diffraction  limited  far  field  central  spot  intensity  and  I denotes 

the  reduced  intensity  due  to  induced  aberrations.  For  small  r and  down  fluctuation,  it  is  directlv  related 
to  the  square  of  the  rms  fractional  density  fluctuation,  ir/r.  Systematic,  larpe-scale  ordered  variations 
in  the  density,  o,  cause  the  optical  pathlcnpths  along  the  rav  paths  to  var>’,  while  smooth  ordered  r 
variations  produced  in  the  flow  that  causes  a spatial  tilt  plane  error  in  the  phase  front  which  is  a 
fundamental  loss.  Linear  plane  errors  in  the  spatial  phase,  t,  can  be  corrected  by  careful  resonator 
mirror  alignment  to  require  the  optical  nathlengths  along  the  rays  to  he  the  same. 

Relatively  small  randomited  density  fluctuations  in  the  flow  field  can  cause  spatial  phase,  1,  fluctuations 
that  have  no  simple  temporal  ajid  spatial  order.  A quaiitativ'o  estimate  of  t.ho  allowable  (Ac/,  can  .he 

made  for  small  phase  aberrations  by  use  of  the  Strchl  criterion, 

I /I  = c.\p  f-t’  1 ~ 1 - , 1 1 ) 

o ' nr.s  nns  ’ 

at  the  point  that  errors  become  significant  because  higher  order  tenrs  are  neglected  in  lu.  I,  !■'!  h.8. 


Specifying  this  optiraiiational  I'oint  requires  1 


-t  0.8.  The  spatial  phase  front  criteria  becomes 


-t  where  X is  the  optical  wavelength.  Using  this  ci  iteria  to  Jetenrino  the  maximum  allowable  rms 

pathlength  gives  a useful  medium  quality  parameter  in  terms  of  gas  density  v;  riation: 

I.lAr./e)  ::  .071'  P rcf/elt  ill 

nns  nns 

O 

wiiere  I.  is  the  optical  pathlength,  for  resonators  witli  largo  out-coupling,  = n - 1 where  n is  the 

uidex  of  refraction,  3 the  (ilads tone- Pale  constant,  p the  gas  densitv,  j ref  tlio  density  at  ''P'  convli- 
tions.  Using  the  given  requirement  for  the  medium  quality  for  1 atr  t.vqiical  visible  laser  mixtures  gives 
I to  he  .n.2  X 10" ’em,  l.S  x Ur’em  and  I.l  x 10"  cm  of  Krf,  feF,  and  'IgCl,  respect  ivclv  in  \rron 

It  2 atm.  Values  of  for  most  !;-be;im  pinnpcd  mixtures  are  thorcfoi'C  ai'proxim.-itcly  IP  ' and 

for  discharges  in  He  is  approximate! v 10"'  for  1.  = 100  cn. 

Reducing  the  scale  of  the  density  fluctuations  furthei'  roaches  a point  wherein  the  tar  field  intensity  is 

.Icgr.adoil  hy  scattering*^*’' ’ a portion  of  thcoptical  beam  from  the  resonator.  This  portion  of  the  out- 
I it  laser  energy  will  appear  as  a veiy  broad  flattened  background  in  the  far  field  to  be  added  to  the  pro- 
portionally reduced  Fraunhoffor  pattern. 

The  approximations  used  to  determine  tlic  allowed  (A."/.  ) for  specified  values  of  1.  provide  little 

beyond  a qualitative  feel  for  high  gain  sy-^tems  having  large  output  coupling.  Real  cases  m.i\-  impose  more 
stringent  (Ar./pl^^^  requirements.  N'umcrical  calculations  to  correctly  determine  the  phasc-perturhcd  c.avity 

properties  would  be  expensive  and  sliould  bo  very  carcfull)'  planned''’',  iiowever,  the  \er>'  imnortant  s^^tems 
advantage  of  the  Helium  diluent  over  Argon  presont.s  a flow  mcdiin  .|ualit\'  of  = 10"‘  may  he  ehtainahlc 
for  100  cm  He  mixtures. 

The  medium  liomogcneity  is  cxprcssid  in  acoustic  terms  for  tlic  two  laser  gases,  Helium  and  \rgon  at  two 
ATM  under  the  normal  laser  conditions.  The  I'r/e)  for  the  two  gases  arc  expressed  graphicallv  in  temns 

of  the  ditving  sound  pressure  level  in  Figure  1.  It  shows  that  acoustical  energy  ip  Helium  will  produce 

a lower  lAo/p)  than  the  same  level  in  .'\Rgon  laser, 
imis 

file  ciiteria  cstahlislied  in  teniis  of  'e/c  for  various  visible  wavoleiu'tli  l.iwei-;  |\1\M  ire  b.-i^ed  on  the 
bt.in  iii.ility  requi  remciit  s , aiid  they  ate  eons  id'- rah  Iv  rest  riet  ive,  aliout  two  ordeis  ol'  ''i.igii  1 1 u.le  higher 
•Ivin  those  tpplied  to  the  pulsed  eiiemieal  lasers.  This  luifavorahle  situ, it  ion  is  amplilied  bv  the  faet 
•■■'It  rh(  I low  'tieli  numbers  of  about  O.ii  lor  the  \TV|,  arc  iioletl  to  be  larger  tli.iii  Hu-  most  other  pulsed  I PI.. 

1 -tud'  eonsidcis  the  is.sues  eoneerning  the  sources  ol  nicdiiiin  inhoniogmei  l >'  in  the  baseline  flow  due  to 
• ouising  .IS  well  as  the  gas  dvTiamie  and  acoustic  management  of  the  perturbations  has  heen  given  in  this 
■ . 

lias-lVnamie  and  Acoustic  Fhenomcna  in  the  Pul soJ  l.asci'  C^ierat  ion 

r ■spouse  to  rapid  '.•oliimetric  heating  takes  place  after  lasing  heeaiise  tiic  .leoiistic 
r'lit  ivel'.  long,  .10  to  100  "sec. 
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Fiq.  1:  Sound  P'^essure 

Level  Versus  (Ao/n) 

nns 

for  Helium  and  Argon  at 
2 atm. 


Althoush  it  has  been  determinci!  that  this  .icons t i cal  Iv  s ieni  ficant  rempera- 
ture  rise  occurs  on  a relatively  long  time  cemparinu  with  the  piiNe  liirat  ion  of  aheiit  1:  ‘■ec . hut  it  is 
short  for  significant  changes  in  the  liter  sice  flow  system  at  the  cavitv.  Thus,  the  assumption  of  constant 
volume  heating  of  the  gas  in  the  cavitv  is  reasonably  lustifie'J  for  the  cis  .Ivnamic  analvsis  of  the  flow 
systems  under  the  pulsed  operation.  The  temperature  rise  coupled  with  pressure  surge  in  tlie  slug  ef  l.iser 
gas  in  the  cavity  generates  the  formation  of  shock  waves  and  exp.insion  waves  which  le.ad  to  the  issuance  of  an 
interface  or  so-called  contact  surface  hetween  them.  Propagations  and  reflections  of  these  pressure  waves 
eomplicatcd  by  the  existence  of  the  interface  separating  the  heated  gas  from  the  cold  in  the  flow  system 
contribute  the  main  source  of  thermo-acoustical  problems  in  suhsei|uent  pulses,  iiual  it.it  ivc  descriptions  of 
these  thermo-.acoust  ic  phenomena  are  presented  graphically  in  sp.ace  vs.  time  plane  in  I'igure  T and  in  space 
vs.  thermod'Tiamic  properties  for  various  time  frames  in  Figure  '.  Ihese  graphical  presentations  were  devel- 
oped from  numeric.il  results  of  computer  modeling  of  the  I.iscr  gas  flow  system  under  pulsed  operation  hased  on 
the  method  of  characteristics.  The  computer  code  devises  a simultaneous  approximate  solution  of  the  coupled 
state,  continuity,  momentum  and  energy  equations  including  the  effect  of  friction  for  the  time-dependent  one- 
dimensional  flow  of  the  pulsed  laser  gas  system  centered  around  the  laser  cavitvl^'. 


Sources  of  random  medium  inhomogcnci ty  accumulativcl v contributes  additive  rms  elements  that  degrades  the 
beam  auality.  It  is  expressed  In  terms  of  Ao/c  as  follows: 


ThcrmodxTi.amics 


lurbulencc 


where 


for  temperature  fluctuations  in  hoimd.in’  lai-ers,  interface: 
.and  other  flow  components. 


Thcrmodvn.amics 


for  Tree  strc.am  turhulcncc 


for  houndarv  l.aver  turhulcncc 
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Normal  (ted  [‘i«rance.  '’•» 

Fig.  C:  W:u’C  I’ropngntion  and  Intcrnction  l)iic 
to  Pulsed  Pnergv  Input 
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I ig.  3;  l'hcmod\n.'Uiiic  Pi'oporty  ari.it  ions  Wrsu.'; 
Space  for  Various  Time  [uTiincs 


A*:  houiRlai'y  hi>’cr  displacement  tiuckness 
!:  boundary  layer  characteristic  length 
Cj.;  skin- frict ion  coefficient 


u^:  average  flow  v'elocity  in  the  cavity 
M^:  '-lach  niunhei'  in  the  cavity 

iMi^;  rms  longitudinal  turbulent  v^eiocity  I'luctuation 


- 1 ( .i)  --4-!-  for  s 


hock  wave 


rms 
\coust  ics 


for  acoustic  waves  where  'I  = 1 

'Ip' 


(■' 


(FI 


In  onler  to  attain  the  beam  duality  revjuired,  the  total  (,V  /ni  . . must  meet  the  criteria  of  in  ' pm- 
KrF  and  XcF  in  Argon  and  IP'"  for  IPA  discharges  in  Helium  and  IlgW  in  \rgon,  respect ivel v.  Technical  chal- 
ionge?  are  evident  in  the  methodology  for  gas  dynamic  and  acoustic  management  of  tliese  medium  honogetieitv  nrohlems 


Prom  the  '|unnt  i tat  ive  vicwiioint  of  excessive  energies  remaining,  in  the  floi,  sv^tem  to  In-  manigci!,  i hev 
can  be  represented  by  the  following  equation  dcrivcil  from  the  energy  balance  and  tbeniiodv  namic  relationships 
of  the  flow  system: 


A = |l  * I - 11  * 11 

0 c c 

: Acoustic  Inergy  Ratio 

where 

t = p , ' in  - '1. 

' o ■ ^ ''O 

: I'cmaining  Inergv  Ratio 
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! : .Voiistic  oiK'r(;y  to  bo  inim.-iuoil 

!i  ; I iior'jv  of  the  hnsolino  flow,  !■  - ('  i' 

o - • ’ n '■  o 

' in'  oncrjty  input 


I ■ l.'i'inr.  onri'i:''  oiitP'it 
r : 'I'oo  i I'io  lio'it  ratio 


The  above  rclationsliip  is  orapli ioa  1 1 v presented  in  ! iviire  1 for  varion-;  !o!-  the  \T\T.  of  intcicst,  the 
above  iaiiiation  4 is  modified  in  dimensional  form  witli  tlic  pjven  v of  l.o"  i.'i'i  presented  in  ! ieiire  with 
encrt:\'  input  in  .foiilc/l  itre  versus  acoustic  cncrity  efficiency,  !'  ,'l  . in  percent  for  a ranee  of  enercy  input 
, rot  a in 

peculiar  to  the  W,  ' . 

Masnitudes  of  the  remaininR  energies  which  must  he  iiianaped  are  known  to  bo  about  of  the  total  cncri;v 
input  while  about  10™  of  the  cnerpy  becomes  lased  enorpy  output  from  the  cavity,  i'ipure  s shows  that  the 
acoustic  cnerpy  is  about  401!  of  the  input  enerpy.  The  rcniaininp  is  the  tlienaal  cnerp>  which  must  be  re 
moved  by  heat  exchangers. 


Fig.  4:  Acoustic  linergy  Ratio  Versus  Remaining 

iinergy  Ratio  for  Various  Specific  Heat  Ratios 


I ig.  5;  Acoustic  l.nerpv  Ihiinoncv  Versus  input 
I'nerpy  for  Vases 


Vethodolopy  of  'ias  Hynamics  and  V'oiistic  >’an.ip^icnt 

Since  the  main  sources  of  inhemopene  i ty  are  oripinated  from  the  turl’iilence.  tenperatiiro  f Uietu-o  U'n , and 
pressure  waves,  ru;-;'  ' rii  u i resnective  solution  approachc'.  to  various  snurcei  will  'w-  n-.”!  's  fol  loww 

rurhulence 

liffects  of  free  stream  turbulence  on  'a/e  mav  be  approximated  I”-  luuation  A: 


■•■L  (a;-)  ’ 

\ / rms 


rhe  velocity  fluctuation,  l|j-.  , can  be  considerably  reduced  bv  siipprc'is  inp  turbulence  iipstro’im  of  the 

" nns 

laser  cavitv.  Tlie  tcchniuiic  to  suppress  the  turbulence  lias  been  well  devel'sed  and  proven  e''feLtive  particu 
larlv  in  tlic  wind  tunnel  practice.  Hsc'  of  dampinp  screens  suppestc!  b.-  Iirvue’  iH'i  lias  baen  accepted  as 
an  effective  method  of  turbulence  suppression.  IVithoiP  arplication  of  anv  turMili'pce  rana'icndit  'vstci. 
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velocity  fluctuations  in  a closed  cycle  circulator  could  he  at  least  ID"'  at  a Mach  nunt'cr  around  D.s.  icjth 
the  use  of  properly  desiKnccl  contractinc  entrance  to  the  cavity,  and  correctly  sized  screen  I'acks,  a sophis- 
ticated turbulence  management  system  could  suppress  the  turbulence  down  to  the  level  below  D.l",  for 
= 0.5,  Ao/d  can  be  lowered  to  0.125  x 10‘®  with  some  moderate  effort  in  this  problem  area. 

■Another  source  of  turbulence  exists  in  the  boundar>-  layers  on  the  mirrors,  their  protective  windows  and 
cavity  walls.  Since  the  Reynolds  number  of  the  flow  in  the  cavity  re«ion  is  determined  to  be  above  10', 
using  .M  =•  0.5,  the  boundary  layer  is  definitely  turbulent.  .Mumerous  experiments  on  turbulent  boundary 
layers  nave  confirmed  that  density  fluctuations  caused  by  boundary  layer  turbulence  or  eddies  ire  larger  than 
those  due  to  freestream  turbulence.  A simplified  e.xpression  of  the  relationship  is  given  hy  fiiuation  6: 


Ap 

0 


= Cp  M' 


T 


Since  Cj.6  = where  denotes  the  Re>nolds  number  along  the  boundar/  laver,  — , 

X the  space  coordinate  along  the  flow  direction.  A coarse  estimate  of  Ao/i  based  on  the  value  of  Cj- 
from  Schlichting^^^^  for  = 0.5  and  = lo'  becomes 


0.5  x 10-'  ^ 

K 


fini 


liquation  10  indicates  that  if  the  distance  X from  the  virtual  origin  of  the  boundary  buer  is  less  than 
twice  the  boundary  layer  characteristic  length  which  is  comparable  to  the  layer  thickness,  the  fraetional 
density  fluctuation  can  be  kept  under  control  oven  for  Argon  flows.  in  pr.actice,  this  c;ui  '^e  accompl  isiied 
by  careful  design  of  the  cavity  entrance  or  the  application  of  boundaiy  bleed  along  the  cavitv  walls. 

Temperature  Fluctuations 

The  temperature  rise  in  the  heated  slug  of  gas  in  the  laser  cavity  after  the  pulsed  energy  input  is  ex- 
pected to  be  about  30%  of  the  original  temperature  for  100  .'oulcs  per  liter  of  l-i  and  .ihout  .'iT.  for  Hi  = 200 
■Joules  per  litre.  Since  the  temperature  of  the  b.ase!  ine  flow,  T^,  is  expected  to  be  about  "Dd’^K.  the  thermal 

energy  added  into  the  slug  of  gas  does  not  exceed  200  .loules  per  litre.  This  amount  of  heat  in  the  haseline 
flow  even  at  = 0.5  is  easily  manageable  with  efficient  light  weiglit  heat  exchangers. 


i 

i ' 


1 


I 


As  for  the  temperature  fluctuations  in  the  boundary  layers  ,it  the  mirrors,  their  protective  windows,  and 
the  cavity  walls,  a preliminary  study  shows  that  the  temperature  at  the  boundary  surface  could  rise  not 
more  than  10%  for  the  boundary  layer  flow  previously  defined  if  /p  is  to  be  limited  under  1D'[’  Again 
cooling  the  boundary  surfaces  can  be  accomplished  with  the  existing  means.  Detailed  analysis  of  boundary 
layers  should  be  deferred  unless  found  necessaiy  from  the  experimental  measurements.  The  removal  of  input 
energy  is  a problem  for  the  closed  cycle  type  but  is  no  concern  for  the  open  cycle  flow  system. 


Pressure  Waves 


Pressure  waves  generated  due  to  the  pulsed  energx'  input  at  the  cavity  in  the  flow  system  include  shock 
waves  and  expansion  waves.  Realizing  that  propagation,  reflection,  transmission,  and  attenuation  of  these 
waves  must  ho  treated  at  le;ist  with  nonlinear  acoustic  theorv  for  tlie  energy  input  r.ange  of  IDD  to  'fin  ■loules 
per  litrei  D):  the  concept  and  materials  for  the  attenuater  design  should  be  based  on  the  nonline:ir  acoustic 
consideration  rather  than  the  avaib'ihlc  linear  acoustic  theory  an<l  data. 

First  Ao/d  line  to  the  shock  wave  is  represented  with  the  following  ei|uation  for  . = l.b',  a t\pical  di  luent 
gas.  and  = 1.15  for  I'.i  = 2D0  loules  per  liter  and  .'.p/o  = n.)03; 


'.0  2rM‘'  - 11 


Thus  becomes  D.22A  and  obviouslv  reouires  attenuation  of  a strong  measure. 

On  the  other  hand,  Ao/c  for  acoustic  waves  under  the  isentropic  process  must  be 


I 
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must  be  less  than  1.67  x 10"^  in  order  that  the  medium  homogeneity  is  acceptable 


Under  these  stringent  re(|uiremcnts  for  acoustic  management,  an  effort  is  currcntlv  in  progress  at  the 
University  of  Alabama  in  Huntsville  to  develop  reactive  attenuators  such  as  a muffler  v^ith  exponential 
horns  as  shoivn  in  figure  6.  Attenuation  characteristics  of  the  muffler  is  presented  in  l igure  ^ for  fre- 
quency versus  attenuated  dB.  It  shows  that  this  particular  t.Lpe  of  muffler  design  will  be  effective  in  the 
frequency  range  up  to  1 KH2  and  most  effective  in  the  200  ' 500  112. 

There  are  many  other  reactive  attenuqtors  gnd  sound  .absorbing  materials  for  pressure  damping  or  attcnuatic 
as  reported  in  numerous  literatures  (i-)*  (la),  (Is),  (IS),  (16),  .and  (1),  however  it  is  important  that  thi 
attenuation  characteristics  with  respect  to  the  wave  frequency  must  be  carefully  matched  with  the  pressure 
w.aves  generated  in  the  laser  flow  systems  so  that  the  attenuation  will  lie  effective. 


FLOW 


\ttcnuat  ion  Hh.ir.act  eri  st  ics 
I'rcqucncv  of  the  Muffler 


6;  Re.active  Attenuator  (Muffler) 


Consideration  of  Open  Cvcle  .and  Closed  Cvcle  !Mow  Svstems 


for  delivering  the  laser  gas  suitably  conditioned  to  meet  homogeneity  criteria  at  the  cavitv,  a neccssnrv 
flow  system  could  be  the  open  cvcle  or  the  closed  cycle  tijic.  Choice  of  a system  depends  on  various  factors 
sucli  as  site  .and  weight  limitations,  sources  of  gas  supply,  capabilities  of  gas  dvTi.amic  - nd  acoustic  manage- 
ment, lasing  energy  output,  and  pulse  rate  restriction. 


High  energ;.'  laser  technolog>'  h.as  gained  considerable  advances  in  terms  of  exqierience,  knowledge,  design, 
and  fabrication  so  far  in  the  open  cycle  flow  system  ("or  pulsc.l  lasers  through  numerous  projects  such  as 
ABIX,  Humdinger,  CCEBI.,  etc.;  however,  the  closed  cycle  flow  svstem  or  circulator  lias  not  ''cen  applied  to 
high  power  pulse  lasers  extensivelv  to  the  .authors'  kaiowTcdgc,  except  the  one  being  developed  'nv  the  \rm\ 
.and  being  tested  currently  at  RocKctd>Tic.  Tecltnical  illustration  and  general  view  of  the  Armv  closed  cvcle 
gas  recirculator  are  presented  in  Pigures  8 and  P. 


Comparative  evaluation  of  the  two  svstems  is  rather  nrem.atuie  at  this  time  ilue  tc  its  l.icK  of  sufficient 
data  for  .analvtical  comparison;  however,  some  of  the  significant  comp.irative  features  of  the  two  svstems  ,ire 
noteworthy  for  system  development  considerations. 


.a)  Vo  heat  exchanger  is  required  at  Jownstrc,a.m  side  of  the  c.avif\-  since  the  heated  gas  will  be  blown  down 
into  the  ambient. 

b)  In  the  acoustic  management,  aside  from  proper  .iprlication  of  rosisti\o  and  reactive  attenuators  around 
cavity,  serious  attention  be  given  to  the  possible  wave  reflection  cf  nonlinear  nature  at  the  system  exit 
which  may  he  a serious  management  problem. 

oi  The  weight  and  site  of  the  total  svstem  including  the  gas  supplv  may  ho  less  flexible  tor  ont imitation 
')  The  duration  of  operation  mav  be  limited  bv  the  site  of  gas  suiiplv. 
e)  '('he  potential  for  higher  repetitive  pulse  rate  exists. 
f1  Pecomli t toning  or  repuri f icat i.in  of  tlic  gas  is  not  reoiiired. 
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ill  Hconomv  in  sa,*;  consumption  .ind  supply  is  cviucnt. 

b)  Cas  ilcTiamic  mnn.ipcmcnt  ol'  tlic  laser  cas  in  terms  oi"  recnml  i t ion  inr  to  Jesirabic  temperature,  pressure, 
velocity,  and  turbulence  is  a clnlloncine  task  rouuirinv  ailditional  lieat  exchaivers. 

cl  Repur  i f icat  ion  of  the  cas  mnv  be  required  in  some  system  dependinu  on  the  rate  of  liccradation  and  thenaal 
environment. 

dl  Acoustic  manapenent  of  the  pressure  waves  is  as  difficult  as  that  of  tl>e  ('pen  cvcle  tyiic,  I'ut  it  lacks  the 
.-oncern  for  tlie  wave  reflection  tinm  the  c.xit. 
o)  Optimitation  of  the  system  weie.bt  and  site  is  more  ('rnmisinp. 
n The  pulse  rate  may  he  less  ficxil'lc  for  increase. 


ARMY  CLOSED  CYCLE  GAS  RECIRCUUTOR 
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Abstract 

To  investigate  the  acoustic  problems  in  high  (energy,  closed  cycle, 
pulsed  lasers,  a closed  cycle  system  was  fabricated  and  attaclied  to  an 
existing  E-beam  controlled  single  pulse  laser  system.  Electrical  energy 
was  input  to  one  atm.  flowing  gas  mixture  typical  of  that  required  by 
CO2  and  excimer  lasers.  A frequency  pviver  spectrum  of  the  produced 
acoustic  pulse  was  measured  and  compared  witli  the  frequency  power  spe<trum 
of  acoustic  energy  transmitted  and  reflected  by  the  muffler.  The  results 
showed  the  muffler  attenuated  the  input  wave  nearly  40  db  at  near  500  Hz 
and  12  db  at  5000  Hz. 

Resume 

En  vue  d'etudier  les  problemes  acousti(|ues  dans  les  lasers  pulses  a 
haute  energie  operant  en  cycle  ferme.  un  system  a cycle  ferme  a ete  con- 
struit  et  rattache  a un  laser  operant  en  pulse  unique  et  controle  par  un 
faisceau  electronique.  L'energie  electrique  a ete  appliquee  a un  flow  de 
melange  gazeu>  typique  de  celui  exige  par  les  lasers  CO2  et  excimer.  Le 
spectre  de  puissance  de  I'impulsion  aconstique  produite  a ete  mes  ire  et 
compare  avec  le  spectre  de  puissance  de  l'energie  acousi  ique  transmise  et 
reflechie  par  le  deflecteur.  Les  resultats  ncntrent  que  le  deflecteur 
attenue  I'onde  d'entree  par  pres  de  40  db  autour  de  500  Hz  et  par  pres  de 
12  db  autour  de  5000  Hz. 
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Introduction 

The  energy  input  into  the  cavity  of  a pulsed  liigh  energy  gas  laser 
causes  shock  waves  and  expansion  waves  wliich  propagate  away  from  the 
cavity  and  interact  with  system  components.’  'lliis  acoustical  energy,  if 
unmanaged,  will  interact  with  gas  in  the  cavity,  thereby  seriously  de- 
grading the  output  laser  beam  quality.  The  work  reported  here  describes 
experiments  which  identify  the  nature  of  the  acoustic  environment  and  the 
effectiveness  of  acoustic  control  devices  in  man.’ging  acoustic  waves. 

The  sequence  of  operation  of  a pulsed  liigli  energy  gas  laser  consists 

of  (1)  the  laser  gas  media  flows  into  the  cavity  region;  (2)  energy  is 

7 3 

deposited  in  the  gas  at  a magnitude  of  10~  - 10  J / 9..  in  a total  time  of 
magnitude  10  *^s;  (3)  shock  waves  and  exp.insion  waves  travel  throughout 

3 

the  system  at  speeds  of  magnitude  10  m/s;  (4)  the  process  is  repeated 
as  soon  as  new  gas  lasing  media  flows  into  the  cavity.  An  experimental 
program  was  initiated  to  investigate  the  nature  of  the  acoustic  energy 
put  into  the  laser  gas  and  devices  were  tested  wiiich  were  designed  to 
remove  these  disturbances  from  the  system. 

Description  of  Experiment 

Experiments  were  performed  employing  a high  energy  laser  of  the  e- 
beam  electric  discharge  type  having  the  capability  of  depositing  energy 
of  the  order  100-1000  J/9-  in  a single  pulse  of  order  10  ^ s duration.  No 
attempt  was  made  to  extract  laser  power  from  the  system  and  net  power 
input  to  tlie  gas  was  assumed  to  equal  the  electrical  input  to  tlie  cavity. 

A closed  cycle  recirculating  system  was  attached  tc  the  laser  to 
move  gas  through  tlie  cavity  region  at  a speed  of  about  3 m/s.  Pressure 
transducers  capable  of  following  the  pressure  rise  associated  with  shock 
waves  were  placed  at  four  locations  in  the  recirculation  system.  The 
simultaneous  output  of  all  four  transducers  were  recorded  on  photographs 
of  the  four  traces  made  on  an  oscilloscope.^ 
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Ttip  rec  i rc.Li  Inting  system  hnd  provision  for  introfliic  ins  ncoiistic 
management  devices  into  the  recirculator  flow.  hevicos  employed  included 
honeycomb  structures,  screens,  and  a muffler  designed  to  e.xtract  tlie 
acoustic  energy  without  introducing  a pressure  drop  in  ttie  flow.  Since 
only  the  muffler  proved  effective  in  the  tests  performed,  the  muffler 
design  and  test  results  will  be  discussed  in  the  following  section. 

Muffler  Design 

The  acoustic  wave  produced  by  the  laser  input  is  represented  approx- 
imately as  a square  wave  pressure  pulse.  Since  the  square  wave  can  be 
approximated  by  an  infinite  series  of  sine  and  cosine  waves,  a muffler 


must  be  able  to  attenuate  waves  over  a wide  band  in  frequency  in  order 
to  be  effective.  An  additional  requirement  for  the  muffler  is  tliat  it 
present  a low  pressure  loss  to  the  flow  of  gas  since  energy  must  be  ex- 
pended  to  counter  any  pressure  drop.  In  order  to  satisfy  the  two  major 
requirements  of  the  muffler,  a horn  coupled  resonator  was  designed  and 
built.  The  resonator  volume  is  placed  outside  the  flow  field  so  that 
interference  with  the  main  flow  is  avoided.  An  t'xponential  horn  is  used 
to  couple  the  resonator  volume  to  the  flow  since  this  horn  design  has 
the  potential  to  act  as  a high  pass  filter.  The  muffler  design  is  shown 
in  Figure  1. 

Resul ts 

The  pressure  records  were  analyzed  to  find  the  nature  of  the  acous- 
tic eni'rgy  produced  by  tlie  laser  pulsi'  and  to  determine  the  effectiveness 
of  the  muffler  In  removing  the  acoustic  disturbance.  By  analyzing  the 
record  from  two  probes  mounted  a known  distance  apart,  the  traveling 
acoustic  wave  could  be  accurately  determined.  This  wave  was  examined  for 
its  frequency  content  and  the  results  of  the  power  spectral  analysis  of 


i; 


that  the  energy  peaks  in  the  5000  llz  range  with  a sharp  drop  off  on 
both  sides. 

The  pressure  records  were  examined  to  find  the  effectiveness  of  the 
muffler  by  examining  tlie  power  spectrum  of  the  wave  leaving  tiie  muffler. 
The  results  of  the  muffler  effectiveness  is  given  in  Figure  3 which 
shows  that  the  muffler  attenuated  the  input  wave  nearly  40  db  at  near 
500  Hz  and  12  db  at  5000  Hz.  The  muffler  is  found  to  be  effective  and 
to  present  no  measurable  pressure  drop  for  the  main  flow  due  to  the 
straight  pipe  design. 
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vtroDUCTION 


In  the  recent  development  of  pulsed  high  energy  lasers,  problems  of  non- 
linear waves  of  both  acoustic  and  thermal  nature  propagating  in  the  laser  gas 
media  have  attracted  considerable  research  interest  because  of  their  effects  on 
the  fractional  density  gradient  which,  in  turn,  relates  to  the  optical  quality 
of  laser  beams.  One  of  these  lasers  uses  a closed  cycle  circulator  to  provide 
an  acoustically  and  tliermally  conditioned  flow  of  the  laser  gas  suitable  for 
lasing  at  the  laser  cavity  on  a continuous  basis  of  operation. 

The  closed  cycle  circulator  consists  of  a compressor,  heat  exchangers, 
acoustic  attenuators,  flow  regulator  and  diverter,  ducting,  control  and  instru- 
mentation systems  along  with  a laser  cavity  for  the  purpose  of  maintaining  a 
recirculating  flow  of  the  laser  gas.  Reconditioning  the  laser  gas  with  gas 
dynamic,  acoustic  and  thermodynamic  means  is  necessitated  by  the  abrupt  deposition 
of  energy  at  a repetitive  rate  in  the  recirculating  flow  of  laser  gas  at  the 
cavity,  causing  severe  spaclal  and  temporal  variations  of  fluid  and  thermal 
characteristics  throughout  the  flow.  These  variations  are  results  of  shock 
waves  and  expansion  waves  which  propagate  away  from  the  cavity,  following  the 
e-beam  controlled  pulsed  energy  discharge.  The  transient  pressure,  temperature, 
and  velocity  gradients  are  responsible  for  producing  acoustical  and  thermal 
perturbations  which  are  directly  related  to  density  fluctuations  of  the  laser 
media.  Optical  beam  quality  is  known  to  be  degraded  by  the  densitv  fluctuations 
as  noted  by  previous  investigations  particularly  for  CO2  lasers^^-^K  Efficient 
operation  of  the  laser  requires  serious  attention  to  gas  dynamic,  thermodynamic, 
and  acoustic  management  of  the  laser  media  in  the  recirculating  flow  system  based 
on  meaningful  measurements  and  analysis  of  fluid  and  thermal  characteristics  of 
the  flow  in  the  pulsed  laser  operation. 

A study  has  been  made  to  determine  the  characteristics  and  propagation  of 
the  waves  generated  by  the  input  power  pulse  characteristic  of  high  energy  laser 
systems.  The  study  has  consisted  of  an  analytic  prediction  based  on  one-dimen- 
sional flow  theory  and  are  also  used  to  study  the  propagation  and  interaction  of 
the  waves  with  the  system. 

The  sequence  of  operation  of  a pulsed  higii  energy  gas  laser  cotisists  of 
(1)  the  laser  gas  media  flows  in  the  cavity  region;  (2)  energy  is  deposited  in 
the  gas  at  a magnitude  of  10^  - 10^  J/H.  in  a total  time  of  magnitude  10“^  s; 

(3)  lasing  action  and  laser  power  extraction  occur  in  total  time  of  magnitude 
10”^’  s;  (A)  shock  waves  and  expansion  waves  travel  throughout  the  system  at 
speeds  of  magnitude  10^  m/s;  (5)  the  process  i.s  repeated  by  the  pulse  repetition 
rate  which  is  governed  by  the  flow  rate  and  time  needed  to  dissipate  waves. 
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The  qunlity  and  mapnitude  of  the  laser  output  is  poverned  by  the  quality 
of  the  flow  present  in  the  cavity  lust  prior  to  the  enerpv  deposition.  Thus, 
waves  whirh  were  penerated  by  the  previous  laser  pulse  must  be  dissipated  so 
that  the  quality  of  the  flow  is  not  disturbed.  The  work  reported  here  examines 
the  initial  shape  of  waves  generated  by  the  pulse  and  the  clianpes  of  this  wave 
as  it  propagates.  This  information  will  find  application  to  the  design  of  de- 
vices to  dissipate  the  wave  energy  by  linear  and  nonlinear  wave  interactions. 


THEORY 


Since  the  energy  deposition  in  high  energy  lasers  in  much  faster  than  the 
rate  at  which  acoustic  signals  can  travel  typical  cavity  dimensions,  the  gas  is 
considered  to  be  stationary  during  the  energy  input.  The  net  energy  into  the 
gas  (total  input  energy  minus  the  laser  energy  extracted)  is  then  assumed  to  be 
represented  by  an  instaneaneous , constant  volume  heating  process.  The  energy 
deposition  causes  an  instantaneous  rise  in  pressure  and  temperature  in  the 
cavity  region.  The  pressure  discontinuity  causes  shock  waves  to  propagate  both 
upstream  and  downstream  and  corresponding  expansion  waves  in  towards  the  cavity 
center.  The  expansion  waves  pass  through  the  cavity  and  interact  with  each  other 
and  with  the  hot  cold  gas  interface  left  by  the  energy  pulse. 

These  phenomena  of  nonlinear  wave  propagations  imposed  on  the  laser  gas  flow 
are  approximately  modeled  with  a set  of  one-dimensional  unsteady  equations  as 
follows : 

1 u 5o  9u  u 3 A _ - , , 

D 3t  0 3x  3x  a'  3x 


ds  = Cv  — i R — — 

T P 


and  implicitly  the  rate  of  change  of  entropy  may  bo  a function  as  shown. 


f ( X , t , A , u , s ) 


Numerically  solving  the  above  equations  with  the  method  of  cliaractcr  istics  has 
yielded  a one-dimensional  descri|ition  of  the  w.-ive  formation  structurt'  as  .sliown  on 
a time  versus  displacement  plot  given  in  figure  1.  One-dimensional  unsteady  gas 
dynamics  is  successfully  employed  to  predict  the  pressures,  temperatures,  and 
velocities  in  the  various  regions  of  interaction. 

A computer  program  was  prepared  to  solve  the  one-dimensional  unsteady  flow 
equations.  The  program  requires  the  initial  pressure,  , temperature  T^,  and 
velocity,  of  the  gas  and  the  net  energy  input  to  the  gas,  Q.  This  is  suffi- 

cient information  to  find  the  pressure  and  temperature  resulting  for  the  energy 
input  for  constant  volume  heating  as  given  by 


c T 

V o 


where  p Is  the  density  and  c the  specific  heat.  The  computer  program  then  ob- 
tains solutions  for  P2,  T2,  P^.  etc. 

FUNDAMENTAL  FREQUENCY  DETERMINATION 

The  flow  axis  mode  pressure  waves  are  propagated  from  the  generating  ex- 
citation cavity.  Fundamental  flow  axis  mode  frequencies  of  the  waves  are  esti- 
mated to  first  order  by  tlie  given  cavity  dimensions  and  propagation  speed  as 
shown  in  the  following  equation  for  an  organ  pipe  open  at  both  ends: 


where  f fenotes  the  flow  axial  mode  frequency,  C the  wave  propagation  speed, 
and  1 the  excitation  dimension  along  the  flow.  The  fundamental  flow  axis  fre- 
quency can  also  be  found  approximately  from  the  wave  pressure  trace  recorded 
in  one  experiment,  using  the  equation  below. 


where  T represents  the  period  of  overall  pressure  rise  as  shown  in  Figure  2. 

In  order  to  perform  a detailed  frequency  spectrum  analysis  of  the  waves, 
the  method  of  Fourier  Transform  Analysis  may  be  employed.  A computer  program 
for  performing  the  Fourier  Transform  Analysis  coupled  with  a A-D  converter 
capable  of  providing  a sufficiently  high  sampling  rate,  has  been  used  to  analyze 
the  wave  frequency  spectrum. 

Since  the  gas  flow  velocity  in  relatively  small  circulators  is  not  negli- 
gible when  compared  to  the  .acoustic  wave  speed,  and  the  pressure  probes  are 
mounted  stationary  in  the  flow,  a Doppler  correction  is  required  to  the  organ 
pipe  equation, 

EXPERIMENTAL  APPARATUS 

1.  Closed  Cycle  Circulator 


Tlie  closed  cycle  circulator  designed  and  fabricated  for  this  study  is 
a 1-D  simulation  having  a full  scale  flow  axis  dimension  and  a mirror  optical 
axis.  It  uses  a controlled  pulsed  discharge  that  is  capable  of  delivering 
pulsed  energy  up  to  500  Joule.s  per  liter  in  .1  single  pulse  of  order  10“5  j, 
duration.  The  instrumentation  system  for  transient  flow  measurements  of  flow 
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axis  characteristics  may  he  fletermined  at  the  preliminary  level  of  the  full  size 
circulator  development.  Transverse  frequency  mode  components  will  be  very  high 
in  comparison  to  the  flow  axis  modes.  There  was  no  attempt  made  to  extract  laser 
power  from  the  system.  Net  power  input  to  the  gas  was  assumed  to  equal  the 
electrical  input  to  the  cavity.  The  cavity  region  was  tightly  sealed  in  all 
but  the  flow  direction.  The  cavity  had  dimensions  of  11  cm  x 11  cm  in  the 
planes  perpendicular  to  the  flow  direction  and  a foil  length  of  45  cm  in  the  flow 
direction,  but  e-beam  spreading  added  an  additional  10  cm  to  tills  length. 

Components  of  this  circulator  shown  schematically  in  Figure  3 are  listed 
as  follows:  a hlower  (Dayton  Model  4C108)  with  a 10  5/8  in.  wlieel  driven  by  a 
electric  motor  of  one  horsepower  operated  at  3450  RPM;  PVC  piping  of  4 in.  dia- 
meter including  1 in.  by-pass  pipe;  e-beam  masks  for  containing  tlie  e-beam  to 
within  a specified  region  of  the  caslty;  cavity  structures  to  box  in  the  dis- 
charge region  in  the  vertical  and  longitudinal  directions;  mufflers;  reflectors, 
Tlie  blower  is  capable  of  producing  flows  with  velocities  up  to  about  100  ft/sec 
by  adiusting  the  by-pass  pipe.  Figure  3 also  shows  the  relative  location.s  of 
instrumentation  probes  in  section  numbers.  The  c-beam  .svstem  was  manufactured 
by  Systems  Science  and  Software  of  Hayward,  California. 


2.  Instrumentat ion  System 

a)  Pressure  Measuring  Instrument 

The  pressure  transient  of  up  to  10  psi  was  sensed  hy  the  minigage 
(Kistler  Quartz  Pressure  Sensor  Model  201B5)  which  >;iyes  a direct,  h i gti  level, 
voltage  signal  with  less  tlian  100  ohms  output  Impedance  and  high  frequency  re- 
sponse of  50  KHz  and  low  frequency  response  of  0.003  Hz.  Tlie  sensor  tiien  con- 
verts the  pressure  into  electrical  voltage  with  bias  of  up  to  11  + 2 volts. 

The  power  required  by  the  transducer  to  the  readout  equipment  is  transmitted 
through  the  coupler  over  a single  inexpensive  cable.  This  eliminates  all  of 
the  inherent  piezoelectric  high  impedance  problems  of  electrical  leakage,  cable 
noise  and  signal  attentuation  and  allows  the  transducers  to  be  used  in  contaminated 
environments  and  with  long  and  moving  cables  at  low  noise  and  witliont  use  of 
charge  amplifiers. 

The  calibration  of  the  transducers  was  performed  at  the  factory,  and  the 
values  of  the  calibration  were  noted  to  be,  on  the  average  for  all  probes,  50 
mv  per  psi  for  the  pressure  measurement  up  to  10  psi.  The  calibration  curve 
relating  the  voltage  output  and  the  pressure  is  noted  to  be  linear  to  + 0.5%. 

b)  Temperature  Measuring  Instrument 

Due  to  the  extremely  transient  nature  of  temperature  variation  in 
the  rerircul.iting  flow  as  a result  of  the  pulsed  la.<er  oper.ation,  n sensor  of 
high  frequency  response  In  excess  of  500  Hz  is  considered  ntcessary  for  the 
temperature  measurement.  Search  of  an  adequate  sensor  resulted  in  the  selection 
of  a hot-wire  sensor  made  of  0.00015  in.  diameter  tungsten  wire  coated  with 
platinum  powdery  film.  Tlie  hot-wire  scn.sor  is  connected  to  the  Tc'mperalnre  and 
Switching  Module  (Tliermo-Svstcms  Model  104(1)  wh  i eli  is,  in  turn,  connected  to  the 
pciwer  supply  (Model  1D31-10A). 

The  Module  consists  of  a bridge  circuit  .aiul  amplifier  in  .in  open  loop  con- 
figuration so  the  hot-wire  sensor  which  is  ordin.irlly  used  ns  .in  anemometer 
probe  c.in  be  switched  to  function  as  a resistance  thermometer.  Since  there  is 
a linear  proportionality  between  the  voltage  output  and  the  temperature,  the 
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calibration  can  be  simply  performed  bv  adiustine  the  zero  and  Rain  set  potenti- 
ometers to  a desired  temperature  ranRO  usinR  tlx*  calibrate  pots  of  two  temperatures. 

c)  Velocity  Measuring  Instrument 

For  the  measurement  of  velocities,  hot-wire  probes  the  same  as 
those  used  for  the  temperature  measurement  is  applied.  The  probe  is  connected 
to  the  constant  temperature  anemometer  module  (.Model  lOlOA).  The  amplified 
output  signal  from  the  anemometer  is  sent  to  the  Linearizer  (Model  1005BI  so 
that  the  voltage  signal  is  processed  in  siurh  a wav  that  it  became  linearly 
related  to  velocity  of  the  gas  flow. 

The  use  of  these  modules  ensures  the  frequency  response  above  500  KHz  with 
power  output  as  high  as  1.5  amps.  The  noise  assijciated  with  the  anemometer  is 
noted  to  be  less  than  0.007%  equivalent  turbulent  intensity.  Frequency  response 
to  the  Linearizer  is  found  to  be  up  to  400  KHz  and  the  accuracy  of  linearization 
can  reach  + 0.22. 


RE.SULTS 


The  wave  structure  expected  from  one-dimensional  unsteady  flow  theory  is 
shown  in  Figures  1 and  4.  The  shock  wave  travels  at  a Mach  number  of  between 
1.1  to  1.5  causing  pressure,  temperature,  density,  and  velocitv  rises  which  are 
a fun<'tion  of  the  input  energy  level.  The  quantities  remain  constant  until  re- 
duced by  the  expansion  wave  which  has  traveled  from  the  outer  edge  of  the  cavity. 
They  then  again  remain  constant  until  reduced  by  other  expansion  waves  which 
criss-cross  the  cavity  region.  The  quantities  and  the  times  at  which  the  waves 
arrive  at  a point  are  predicted  based  on  the  one-dimensional  theory,  dimensions 
of  the  davity,  and  the  location  of  the  probe. 

Figure  5 shows  the  recorded  outputs  of  pressure,  temperature,  and  velocity 
probes  at  various  sections  in  the  circulator  for  a typical  firing.  The  first 
gauge  which  is  closest  to  the  cavity  region  is  seen  to  record  the  expected  wave 
form  with  sharply  defined  shock  and  expansion  wave  signals.  The  output  of  the 
other  two  probes  show,  however,  that  the  wave  structure  changes  to  simply  a 
sharp  pressure  rise  followed  by  a smooth  decay. 

Figure  6 shows  a plot  of  the  results  obtained  for  the  pressure  rise  across 
the  shock  wave  as  a function  of  input  energy  density.  Also  shown  is  a plot  of 
the  results  obtained  from  the  one-dimensional  computer  program.  The  results 
show  general  agreement  with  the  theory.  One  source  of  error  is  due  to  non- 
uniform  energy  deposition. 

Figure  7 shows  traces  of  pressure  waves  measured  at  position  7,  Figure  3, 
for  two  levels  of  power  input,  54  and  34  J/f,  respectively.  Wave  frequency 
spectra  of  the  two  waves  are  also  presented  as  a result  of  Fourier  Transform 
Analysis.  A slight  increase  in  the  frequency  at  higher  harmonics  was  noted  due 
to  the  decrease  in  power  input.  Nonlinear  effects  are  not  apparent  at  the 
fundamental  frequency. 

Figure  8 presents  pressure  wave  traces  of  a wave  passing  through  a 90  bend 
in  the  circulator.  Tlu'  wave  forms  before  and  .after  the  bend  are  (list  inct  ivel  v 
altered  mostly  in  the  fre(|uoncy  spectra.  The  wave  after  the  bend  si-ems  to  re- 
duce its  fundamental  frequency  from  about  280  Hz  to  230  Hz.  No  effects  arc 
noted  at  the  fundamental  frequency. 

Figure  9 delineates  the  attenuation  effects  of  a muffler.  Results  of  the 
frequency  spectrum  analysis  demonstrate  that  tlie  muffler  is  effective  in  reducing 
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the  wnve  pressure  amplitude  by  19  dB  in  5 . S flow  diam^'tors  and  changing  the 
frequency  distribution  at  the  higher  harmonics. 

Figure  10  presents  temperature  traces  of  the  titermal  pulse  p-issing  (see 
Figure  1)  through  a resistive  attenuator  (Ceramic  honeycomb)  of  10  cm  in  thick- 
ness. Tt  shows  the  heat  absorbing  nature  of  the  honeycomb,  signifying  that  the 
resistive  acoustic  attenuator  may  be  used  as  a heat  sink  .at  the  same  time. 

Fortv  cm  of  material  was  found  to  eliminate  all  traces  of  the  thermal  wave. 


CONCLUSIONS 

Based  on  the  preliminary  results  of  this  study,  some  qualitative  conclusions 
may  be  deduced  as  follows: 

a)  Nonlinear  characteristics  of  the  acoustic  waves  for  excimer  levels  of 
input  energy  are  best  seen  in  the  frequency  distribution  of  acoustic  energv 
changes  in  the  high  harmonics  due  to  the  wave  propagation  in  the  duct,  through 
bends  and  mufflers. 

b)  Only  minor  changes  are  found  in  the  fundamental  frequency  due  to  form 
changes  and  propagation  effects  in  the  circulator. 

c)  Most  of  the  energy  is  found  to  be  stored  in  tlie  fundamental  frequency. 

d)  Design  of  the  attenuators  for  closed  cycle  circulators  should  be 
effective  and  conservatively  based  when  the  fund.ament.i  I flow  axis  mode  frequency 
is  used  and  linear  acoustic  methods  are  applied.  Low  pressure  loss  structures 
providing  about  a 40  dB  one  way  attenuation  should  be  effective  at  relatively 
high  repetitively  pulse  rate  applications. 
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LIST  OF  SYMBOLS 

area  of  flow  cross  section 
speed  of  sound 

specific  heat  at  constant  volume 

F requency 

pressure 

heat 

gas  constant 
entropy 
temperature 
t ime 

velocity 

length  in  flow  axis 

length 

density 

period 

friction  factor 


Subscripts 

0,  1,  2,  3 ...  regions  in  the  flow  field 
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Figure  1.  Thermodynamic  PrtJiierty  Variations  Versus  Space 
for  Various  Time  Frames. 
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Figure  2.  SflOCK  WAVE  PRESSURE  TRACE  FOR  TWO  CAVITY 
POWER  INPUT  LEVELS. 
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Figure  3-  Top  V^ev''  op  PVC  Subscale  T'odel  Attached  to 
THE  Laser.  Symbol  If  Indicates  Sections. 
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Figure  4.  Weight  Propagation  and  Interaction  Due  to 
Pulsed  Energy  Input. 
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FIGURE  7.  WAVE  SPECTRUM  AT  TWO  POWER  LEVELS  DETERMINED 
BY  THE  FOURIER  TRANSFORM  METHOD. 
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Figure  8.  PROPAGATION  OF  PRl-SSURF  WAVES  THROUGH  TWO  PO  BENUS 
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FIG.  10.  PROPAGATION  OF  THERMAL  PULSE  THROUGH  10  CM  OF  RESISTIVE 

ATTENUATOR  (CERAMIC  HONEYCOMB) 
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Introduction 

A closed  cycle  circulator  associated  with  electrically  pulsed  lasers 
consists  of  a compressor,  heat  exchangers,  acoustic  attenuators,  flow  re- 
gulator and  diverter,  ducting,  control  and  instrumentation  systems  along 
with  a laser  cavity  for  the  purpose  of  maintaining  a recirculating  flow 
of  laser  gas  suitably  reconditioned  for  lasing  at  the  cavity.  Recondi- 
tioning the  laser  gas  with  gas  dynamic,  acoustic  and  thermodynamic  means 
is  necessitated  by  the  abrupt  deposition  of  energy  at  a repetitive  rate 
in  the  recirculating  flow  of  laser  gas  at  the  cavity,  causing  severe  spe- 
cial and  temporal  variations  of  fluid  and  thermal  characteristics  through- 
out the  flow.  The  resulting  pressure,  temperature,  and  velocity  gradients 
are  responsible  for  producing  acoustical  and  thermal  perturbations  which 
are  directly  related  to  density  fluctuations  of  the  laser  media.  Optical 
beam  quality  is  known  to  be  degraded  by  the  density  fluctuations  as  noted 
by  previous  investigations  particularly  for  CO2  lasers^^^ ’ ^ 

Therefore,  design  improvement  as  well  as  efficient  operation  of  the  lasers 
requires  serious  attention  to  gas  dynamic,  thermodynamic,  and  acoustic 
management  of  the  laser  media  in  the  recirculating  flow  system  based  on 
meaningful  measurements  and  analysis  of  fluid  and  thermal  characteristics 
of  the  flow  in  the  pulsed  laser  operation. 


107 


Tnis  paper  presents  some  of  the  efforts  anci  findings  pertaining  to 
the  measurements  of  unsteady  flow  quantities,  namely  pressure,  temperature 


and  velocity  of  the  recirculating  flow  in  the  closed  cycle  circulator  at 
various  locations  for  several  levels  of  pulsed  energy  input.  Special  em- 
phasis is  made  on  the  technique  development  for  the  measurement  of  temper- 
ature fluctuations  in  the  highly  transient  flow  where  high  frequency  re- 
sponse of  the  instrument  is  required. 

Experimental  Apparatus 

1)  Closed  Cycle  Circulator 

The  closed  cycle  circulator  designed  and  fabricated  for  this  study 

is  of  subscale  size  and  intended  for  use  with  a single  pulse  generator 
3 

(S  laser)  capable  of  delivering  pulse  energy  up  to  500  Joules  per  litre, 
so  that  the  adequacy  of  the  instrumentation  system  for  transient  flow 
measurements  of  particular  interest  may  be  determined  at  the  preliminary 
level  of  the  full  size  circulator  development. 

Components  of  this  circulator  shown  schematically  in  Fig.  1,  are 
listed  as  follows:  a blower  (Dayton  Model  4C108)  with  a 10  5/8  in.  wheel 
driven  by  a electric  motor  of  one  horsepower  operated  at  3450  RPM;  PVC 
piping  of  4 in.  diameter  including  1 in.  by-pass  pipe;  E-beam  masks  for 
containing  the  E-beam  to  within  a specified  region  of  the  cavity;  cavity 
structures  to  box-in  the  discharge  region  in  the  vertical  and  longitudinal 
directions:  mufflers;  reflectors.  The  blower  is  capable  of  producing  flows 
with  velocities  up  to  about  100  ft/sec  by  adjusting  the  by-pass  pipe. 

2)  Instrumentation  System 

a)  Pressure  Measuring  Instrument 

The  pressure  of  up  to  100  psi  was  sensed  by  the  mini-gage  which 
gives  a direct,  high  level,  voltage  signal  with  less  than  100  ohms  output 
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impedance  and  high  frequency  response  of  50  KHZ  and  low  frequency  response 
of  0.005  HZ.  The  sensor  then  converts  the  pressure  into  electrical  voltage 
with  bias  of  up  to  11+2  volts.  The  power  required  by  the  transducer  to 
the  readout  equipment  is  transmitted  through  the  coupler  over  a single  in- 
expensive cable.  This  eliminates  all  of  the  inherent  piezoelectric  high 
impedance  problems  of  electrical  leakage,  cable  noise  and  signal  attenuation 
and  allows  the  transducers  to  be  used  in  contaminated  environments  and 
with  long  and  moving  cables  at  low  noise  and  without  use  of  charge  amplifiers. 

The  calibration  of  the  transducers  was  performed  at  the  factory,  and 
the  values  of  the  calibration  were  noted  to  be,  on  the  average  for  all 
probes,  50  mv  per  psi  for  the  pressure  measurement  up  to  100  psi.  The 
calibration  curve  relating  the  voltage  output  and  the  pressure  is  noted  to 
be  quite  linear. 

b)  Temperature  Measuring  Instrument 

Due  to  the  extremely  transient  nature  of  temperature  variation 
in  the  recirculating  flow  as  a result  of  the  pulsed  laser  operation,  a 
sensor  of  high  frequency  response  in  excess  of  500  HZ  is  considered  nec- 
essary for  the  temperature  measurement.  Search  of  an  adequate  sensor  re- 
sulted in  the  selection  of  a hot-wire  sensor  made  of  0.00015  in.  diameter 
tungsten  wire  coated  with  platinum  powdery  film.  The  hot-wire  sensor  is 
connected  to  the  Temperature  and  Switching  Module  (Thermo-Systems  Model 
1040)  which  is  in  turn  connected  to  the  power  supply  (Model  1031-10.\) . 

The  Module  consists  of  a bridge  circuit  and  amplifier  in  an  open  loop 
configuration  so  the  hot-wire  sensor  which  is  ordinarily  used  as  an  anemo- 
meter probe  can  be  switched  to  function  as  a resistance  thermometer.  Since 
there  is  a linear  proportionality  between  the  voltage  output  and  the  temper- 
ature, the  calibration  can  be  simply  performed  by  adjusting  the  zero  .and 
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gain  set  potentioraeters  to  a desired  tenperature  range  using  the  calibrate 
pots  of  two  temperatures. 

c)  Velocity  Measuring  Instrument 

For  the  measurement  of  velocities,  hot-wire  probes  the  same 
as  those  used  for  the  temperature  measurement  is  applied.  The  probe  is 
connected  to  the  constant  temperature  anemometer  module  (Model  lOlOA) . 

The  amplified  output  signal  from  the  anemometer  is  sent  to  the  Linearizer 
(Model  1005B)  so  that  the  voltage  signal  is  processed  in  such  a way  that 
it  became  linearly  related  to  velocity  of  the  gas  flow. 

The  use  of  these  modules  ensures  the  frequency  response  above  500  KHZ 
with  power  output  as  high  as  1.5  amps.  The  noise  associated  with  the  ane- 
mometer is  noted  to  be  less  that  0.007%  equivalent  turbulent  intensity. 
Frequency  response  to  the  Linearizer  is  found  to  be  up  to  400  KHZ  and  the 
accuracy  of  linearization  can  reach  + 0.2%. 

d)  Calibration  of  Temperature  Probes 

Examination  of  preliminary  experimental  data  of  temperature 
measurements  of  the  flow  laden  with  shock  waves,  thermal  waves  and  acoustic 
waves  in  the  circulator  resulted  in  a finding  that  the  temperature  probes 
were  not  as  sensitive  as  the  pressure  and  velocity  probes  responding  to 
waves  of  high  frequency  or  gradient.  Thus,  an  extensive  calibration  of 
the  probes  to  relate  the  probe  characteristics  and  environmental  temperature 
to  the  frequency  response  became  necessary  for  establishing  a corrective 
procedure  to  ensure  the  measurement  accuracy. 

A calibration  device  consisting  of  a circular  disc  with  two  1 in.  by 
1 in.  windows  at  the  opposite  sides  rotating  at  various  fixed  speeds,  a 
heated  gas  flow  source  and  a probe  support  as  shown  in  Fig.  2.  Proper 
adjustment  of  the  flow  temperature  and  rotation  speed  enabled  the  device 
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to  similate  the  thermal  environments  surrounding  the  probe  for  a given 
duration  due  to  the  thermal  waves  and  shock  waves  laden  on  the  recirculating 
f low . 

Based  on  theoretical  consideration  of  the  probe  characteristics,  in- 
strumental principles  and  thermal  conditions  of  the  flow,  it  teas  deduced 


that  the  probe  frequency  response  may  be  delineated  by  the  following 


. (6) 

eauation 


1 + K 0) 


(1) 


where  denotes  the  temperature  sensed  by  the  probe,  the  environmental 


temperature,  co  the  thermal  wave  frequency,  and  K the  probe  characteristic 


coefficient  expressed  as  a function  of  and  (u. 


Results  of  the  calibration  are  presented  with  the  above  parameters 


and  variables  in  Fig.  3.  These  calibration  curves  for  various  T can  be 
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applied  for  correcting  the  temperature  measured  by  the  probe.  The  coeffi- 


cient K was  found  to  be  highly  dependent  on  T^  and  o)  for  a given  probe. 


Theoretically,  it  is  known  that  the  smaller  the  diameter  of  the  probe, 
the  higher  the  frequency  response. 

e)  Calibration  of  Velocity  Probes 

The  probes  were  calibrated  by  using  a Thermo-Systems  Calibrator 
(Model  1125)  following  the  furnished  instructions.  Results  of  the  calibra- 
tion were  analyzed  with  the  aid  of  a computer  programmed  for  the  standard 
data  analysis. 

f)  Data  Recording  System 

To  amplify  and  record  experimental  data  from  these  measurements 
with  proper  time  sweep,  Tektronix  oscilloscope  (Type  564-3A74-3B3)  with 
memory,  equipped  with  a Polaroid  camera,  was  employed. 

Ill 


Preser.racion  of  Experimental  Data 

A typical  test  run  involved  the  laser  and  recording  temporal  varia- 
tions of  pressure,  temperature  and  velocity  at  various  locations  in  the 
circulator.  In  addition,  the  laser  discharge  varrent  was  monitored  in 
order  to  determine  the  energy  put  into  the  laser  media.  For  brevity,  few 
typical  recorded  data  are  traced  from  the  oi-.  i llccrapn  photos  presented 
in  Figures  4,  5,  and  6. 

Figure  4 shows  time-dependent  pressure,  velocity  and  temperature  at 
Section  1 in  the  circulator  recorded  at  Channels  1,  2 and  3,  respectively. 
The  sweeping  time  of  2 m sec  per  div.  in  the  oscilloscope  was  fast  enough 
to  capture  the  shock  wave  propagating  at  the  Mach  number  of  1.1  in  terms 
of  pressure,  velocity  and  temperature. 

Figure  5 depicts  the  passing  of  a thermal  wave  at  Section  1.  The 
wave  was  measured  to  be  traveling  at  about  100  ft.  per  sec.  Diffusion  of 
the  wave  at  the  section  was  noted  to  be  rather  significant,  resulting  in  a 
considerable  decrease  in  temperature  (24°C)  from  the  one  (74°C)  initiated 
at  the  cavity.  The  volume  of  the  heat  gas  was  diffused  to  almost  three 
times  the  initial  volume. 

Figure  6 shows  the  decay  of  pressure  waves  across  a muffler  installed 
in  the  circulator.  More  than  19  db  in  acoustic  attenuation  was  noted  for 
this  case. 
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ABSTRACT 

In  liici'  power  l.nsi'fs  of  lu'ctrie  disch.iriy  i vpi  . l 'u-  I.is.  r . r- 

onlntcd  in  a ilescd  evi-le  flow  system  similar  in  i siih;;,inie  wind  Innn.'l  in.  lnd- 
inc  a laser  cavitv  and  heat  excliange  rs . Due  to  the  iii;;!)  Inwit  input  it  tin.' 
cavitv  dnriiiH  tlie  lasi'r  operation,  peculiar  I’itiid  and  tiierm.il  liiaracterist  ii's 
have  been  noted  in  Llie  closed  cvrli;  flow  svstom. 

This  paper  prescuits  .i  stiidv  of  these  clia  rac  Lit  i s I i cs  uiuiio'  st'-idv  .tali' 
r!>eratinK  conditions  f-or  various  Itcat  input  levels  and  flow  p.i  ramel  • • r s , usinc, 
computiT  calculation  of  a one-d i mens iona I model.  iho  compiler  program  has  in- 
corporated the  characteristics  of  a specific  hlm-tor  and  heat  excti.inp.er  dc^i.-.n 
and  he  R.is  properties  of  a tvpical  CO.,  laser  jpas  mixture.  fhus,  ti-.e  steady 
state  opi'ratini',  conditions  for  a ft  i von  hear  input,  a p.iven  inlet  onerat  i lu; 
pressure  and  >;iven  amhiLMit  coiid  i t ions  for  tlie  he.U  exchanpors  have  beep  deler- 
miiied  with  the  (irojtrani.  Also  .■malvp;ed  are  t lu-  operatini;  charact  er  i si  i .-s  of 
the  system  for  of  f-des  i j;n  ' I'onci  i t ions  . Rc'sults  of  the  .inalvsis  are  pr.si'iited 
IP  terns  of  velocity,  density,  temperature,  .ind  pressure  distribution';  through- 
out the  system,  compabin;',  with  ,i  set  of  st  uuiard,  nominal  oper.itini’,  conditieus. 

Hi  i s comptirison  enables  .in  understand  inp  of  tin'  ch.iiu;  i ny  trends  of  fluid  .ind 
thermal  characteristics  due  to  the  chances  of  lic.'it  input. 

Results  of  this  ftiidv  provide  a desi'an  tool  for  the  development  of  i h i ah 
power  laser  witli  optin'um  efficiency.  They  also  serve  as  n b.isis  for  the  in- 
vest i ^ti  t i on  of  unsteady  phciiomena  usinp,  a qu.is  i -s  t ^.•ad  v metho  1 of  aiiaivsis. 

INTRODUCTION 

The  hiah  power  'laser  "f  electric  d i sch.irpe  type  uiidor  this  studv  ii.is  the 
laser  C'AS  rec  i rcu  I at  i n;;  in  .i  closed  cycle  fiow'systom  i n<  1 ud  i nc-  .1  I i.'.or  eat  i i v 
and  heat  exchaiutors . • In  tlu'  laser  cavitv  sect  ion,  the  electric  discii.irc.e  in- 
i-roasi's  the  t empe  r;i  t ii  re  of  the  l.isor  c,.is  mixtuii’.  Ibis  iuere,i;o  in  I . -mpe  r.i  t u r,' 
will  h.ivo  the  dot  r i merit  .1 1 of  I oet  of  fillinit  the  lower  oneicp.'  lov-l',  ,.f  i he  CO, 
uid  rosultiny,  in  hl^’.lkdown  ol  the  l.iser  jpiin  ople:,.;  ihi.  .'.u;  i ■.  eoo  I . i or  I'l  - 
frosheil.  ih'c  i rcii  1 ,1 1 i na  flow  is  nol'es^;.'l  i".'  foi  sustainiu"  .i  eon  t i 11110111^  pit'lor- 
niance  of  the  laser  ;it  hiah  power  levels  witliont  the  nei'd  to  prnvidi'  l.iiv’.e  volumes 
of  Ras . 

Tool  ini;  of  tlio  l.iser  ;',.is  .it  a pressure  iio  1 ow  at  mo.;;ihor  i c is  piim.iril'.  ii.in.i- 
;;od  in  tlii.s  sysLoni  hv  fUn,/  eonveei  ion  which  rop|epi..li  the  c.ivil'.'  '.riili  eoolid 
pas  wliii'h  has  hoiui  rccvcli-d  through  tho  lie.iL  oxchanaers . this  nn'thod  of  co.ili-p,; 
is  superior  to  the  hlow-down  tvpo  or  open  cvcle  svsti'm  f ri'iii  the  standpoint  of 
R.is  economy  and  other  enp,  i nee  r i iiy  eons  i lier.i  t i ons  . 


The  closed  cvcii'  fliAv  s\c-;i('ni  is  h.is  i . 1 1 1 v siiiiil.ir  to  ,i  snbooiiii  wi:ul  Limin-I, 
but  differs  f row  it  heo.insi' , of  lIh'  sevoi-'-  lie.il  in!;  iiid  oooliii;;  of  t lio  r.-r  i rc!i  1 i- 
tint;  s;ns  under  the  low  opetMl  in!.;  pressuro.  M.i  i n i.iinrr's  I'f  tlio  .‘.'.otom  k.-  tin’ 
lu’.itinp,  tli.it  occurs  in  (In'  c.iv  i l rejtion.  the  cool  in;;  ocoiir.s  in  Llie  iio.il: 

excluinqers  , nnd  Lite  blowers  ‘wiiicli  ni.i  i nt  n i n i lu'  I 1 o'w  . 

Tl\c  objectives  of  t li  f':  stndv  nro:  to  develop  o cotnpiiLer  n'.odi'l  '.■.•iiicii  is 
cap.ible  of  cnlcnlntJnp  ("Inid  .ind  tlieriiinl  condition'-;  ol  (he  rec  i rc.n  I -i  I ini;  f 1 ow 
at  various  stations  in  Llii'  closeil  cycle'  ainl  wliicli  i ';  c-ipablo  of  ..'iinnl  it  in;;  -I'ajor 
element  -ar  ranp.enK'n  t s -and  rani;es  of  input  p.a  r.  ime  ( e r ; ; lo  verif','  t lie  lao.li'l  'witli 
experimental  data  collected  I'rom  a liiiiit..'d  et-tpo  r i men  t to  ovaluat'e'  ( e -is  i !>  i 1 i L v 
of  the  recycling  concept;  and  to  cstiniati'  the  limit  'if  the  ofierating  range  of 
such  a system. 


Mi'THOI) 

Coupling  the  one-d  i mens  i ona  1 equations  of  I'i'ii  t i m i i t , mot  ion,  I'lie  i-',;'.- . iie-it 
transfer  for  heat  exchangers,  compressor  pe  r f ormain' e , and  gas  l-inet  ics  at  the 
laser  cavity,  a computer  prop.ram  was  developt"!  to  pi'cforni  calciil.it  ions  con- 
verging on  a steady-state  oiieiMtion  soliit  ion  for  .i  c ! osi'd  ('yi'le  flow  s'.'si  i-m 
defined  in  terms  of-  latier  output  power  and  e|  f ic  iinn  comp<is  i t i on  , tunnel 

heat  exchangers,  and  external  radiators,  te.iiiu'l  d i ii'.'.ns  i on:; , dil’fusot  pri";'.i;r.' 
loss  coefficients,  blower  performance  d.'it.i,  cool.inl  flow  rates,  and  a h finiti'in 
(if  the  external  heat  sources  ('ou[)!es  to  th;.'  cool. nit  I low.  the  stt'  id  - .-.'t  ito 
solution  is  obtained  for  .a  f i xod  inlot  di'iisitv  or  pi  issuic  .at  the  c.i'.'ilv  on- 
trance.  A simplified  flow  chart  of  tin.'  compiit  or  progr.im  is  prosentod  in  I'ig.iirc 
1 to  di'scrihe  the  flow  of  ca  I on  I .i  t i ons  . 

U’itli  reference  to  tlio  flow  cii.art  in  i''ii;iiro  I,  t lio  i .i  I c'li  1 a t i on  i;;  st.irlod  I'v 
inputs  of  initial  assiinuyt  values  t li  roni;lioii  t the  svsti'iii.  Since  tiie  .'■.L''.idv  s:  .ite 
opi’rntiiig  clin  rac  t e r i s L i c s are  depeiitient  iiiii’ii  Llio  s'."-;tein  pc  r to  rm.-inc' ' , on  I v 'MU- 
flow  v.ari.ihic'  can  lie  speci.fied  at  inu'  liu'.ation  in  liu'  svsLi'"i.  in  m.in.'  !i;'.;li 
i-'nergv  systems,  tlie  ('avLtv  inlc't  pressure  or  deusitv  is  usod  to  control  tin.' 
svstem  and  that  is  wliv  ono  of  tiiese  proi'orties  is  ciiosi'ii  as  spei  ifii'd  to  licgin 
tlie  calculation.  l{as';'i  on  tlie  .issiimod  input  flov;  p.-i  rameti't's , tlie  gas  tiiermo- 
dvn.iinic  and  pliysic.ar-  properties  are  calculated  .and  all  In'at  exclianger  friction 
factors  and  lieat  transfer  cocf  f i c i ents  are  comimtod. 

The  g.'is  enters  tlie  ('.ivity  rt'gion  and  is  sniijectod  to  t lie  sei’ore  lie.iLing 
rh.i  r.ic  t I'l"  i s t ic  of  higii  eiu'rijv  laser  system.  Tiie  c.ivitv  area  cli.ingi.  in  tlie  flow 
direction  n.av  bo  of  arbitrarv  shape  or  one  wliicli  provides  for  const.aiit  f’ach  nuin- 
lier  tiirongli  tlie  cavitv  region.  Tlie  duct  flow  losses  and  iie.it  excli.ingor  induced 
changes  in  pressure  .ami  temper.-itiire  are  calculated.  I'c r I o rn, -inci'  curves  c'f  tile 
blower  tlien  provides  v.iIik's  for  tiie  outlet  pressure  mi  t'lTi'peratii.e  for  I'lsiined 
mass  flow  rate.  Ad<i  i t i ('  .i  I duct  flow  and  lieat  exch.ing.er  losses  ,■  re  c.i  I cn  1 i ted 
to  givi'  flow  propert  ii'S  at  tlio  c.ivity  inlet.  If  the  c.i  1 cii  1 .i  t ed  .mil  .ri'omu'ii 
inlet  properties  diffei  . a lU'w  flow  rati'  .and  inli'l  t oiiipi' r.  1 1 ii  ro  is  clio'.c'ii  .iii'l 
tlio  pfoi'o'is  rei'o.ili'd  ^iiiii  il  convi'ii'.on.'i'  is  lo.icliod.  (oinput  li  ion  ol  ■;.'.l.'m  cii.'rc.y 
li.il.iiici'  .mil  Iilow'or  total  pi  i";,';iiio  matcliiiig,  with  I lu'  Ii'iit  i i";  i si  .mco  .no  iii- 

cliidr'd.  Specific  lii'.i^';,  yisciviilv,  ,md  lic.iL  If.mslir  coc  i f i c i en  I ';  .ti'o  ror.ilcu- 
i.'ircd  I!-;  tlio  compii  I «( t i'on  iiroi'ccds  . 

Wilii  tlie  amliii'nt  -air  t ompor.a  t u ro , prt'ssnri',  .-md  rol.itivc'  liu'.i  i d i t r i yon  . 
convi'rgence  of  tlic  c.'ilcnlal  ions  is  attaiiu'd  wlii'ii  ciianp.os  in  In  s"-;toiii  t ''i”pe  ra  I ti  ri'S 
.ind  suiip  I cmenttiry  pressure,  density,  1 1 mper.a  t ure  , yolocit'.  , and  M.icii  numhor  loops 
f.ill  'witliin  p respcc  i f i 1 ■ I to  I c.'r.anios  . TIk'  closed  I'yi  flow  sv!;t,.'iii  iindor  stud'.' 
is  siiowii  si'iie.m.it  ic.a  I I V in  i-iguri'  T,  willi  tin'  i don  I i I i r a I i on  numlur'-;  ri 'p  ti"-.i"i  ( i iii; 
till'  '.1. It.  ions  wliore  rompnli-r  c . i I cu  I a ( ion';  aro  po  r I o i mi 'd  . 

Ill  tlie  nui'ii’ r i I a I .sclni'ii'  of  'lolviiu;  tin-  sot  ol  li.  .at  -b.a  I iiu  i .md  ' ] . .w  i.pi.al  ions 
r('p  reson  I i ng  tlio  1 is,  r i',t.is  I 1 1 -w  ri  c i rcu  1 .'i  1 i in;  wilii  a Iioii.  innnt  it  tin.'  ''ivitv, 
the  '.vigstein  metlioi.l  of  ilcr.it  ion  was  empiovi.'(l  .ilong  witli  tlie  inili.i!  forcing 
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condition  tli.'U  inli  L |i.i  t .iincfor';  ore  ^■(|n,■|  I lo  out  lot  |i.  i r.iiiu' I i-rs  in  t ho  olosi'd 
ioo|).  Viicn  Clto  inlet  flow  condiLtons  .ire  | i;-:i.'d,  tin  l.isor  nowt'r  out  pot  ,iiul 
e f f ic  it'tu'v , li'inid  ooolnit  flow  rate,  propoft  ios  and  s'.stein  ;;oom(  L rv  aiL- 

detormineil,  tlii'n  a solution  for  the  ri'pnirod  lioat  oxinant'.or  o f foo  t i v.  ness  as 
well  as  tlie  iininher  of  IkmI  transfer  units,  and  for  the  hlowor  prc-ssuis'  ratio 
can  be  deduced. 


RESULTS 

Simiiiatinn  of  a liit;h  enerjty  (iO.,  electric  d i si-lia  res'  laser  witli  an  I’-iieam  w.as 
employed  to  illnstrate  I lie  steadv  state  opt>ration  ol  such  a system.  The  results 
are  pre-sented  in  Eij’.iires  i throiipji  7 for  Lin'  sv:;teiii  velocity,  density,  total 
temperatures,  static  (iriy-isiire , and  total  pressure,  respee  i.  i ve  I v . The  inlet 
static  pressure  is  ke)it  tine  same  in  these  results. 

I'ijtnrc'  ’)  shows  the  velocity  values  obtained  I rein  the  steady  st.ate  n roe,  i' am 
for  3 ranjtcs  of  heat  ilepositisi  in  the  cavitv  repion  (vero,  nominal,  and  twice 
nominal).  The  velocity  at  the  cavity  inlet  for  the  nominal  case  is  used  to  non- 
d i mens  i ona  I i .to  the  results  which  are  plotti'd  relative  to  tin’  location  at  anind 
the  rec  i rciilati  on  syslrnit.  At  the  bottom  of  the  fip.nri'  is  a drawinc,  of  tin.'  one- 
dimensional  cross  section  of  rite  system  used  in  the  coripnt.at  ion.  Ihe  cavity 
cross  section  was  taken  .as  constant  for  tlie  rosnlCs  presanited  here.  Tin'  heat 
adiiitinn  at  the  cavity  is  seen  to  cause  incri'ased  velocity  in  th.'  system  np  to 
the  first  heat  exchani;<'r.  The  li  i t;h  ve  1 oe  i I y /h  i i;h  ti-mperatnre  ;:as  enconntei-s 
increased  resistance  at  the  first  lieat  exerhantter  as  the  lieat  input  to  tin'  system 
is  i nc  reasetl . 

f'lKhre  4 slio'.vs  the  valni'S  of  density  t h roiipjion  t tin'  system  with,  tin'  density 
at  th»>  cavity  inlet  for  tlie  nom  i na  1 -in 'a  t e.ise  used  lo  non-.l  i mens  i ona  1 i .’.e  tlu' 
results.  Tile  resniLs  show  that  Che  total  i n t r't;  r.i  t ed  mass  in  the  s'.''-tem  .lee  re.ises 
.'IS  the  heat  input  to  Che  cavitv  is  incre.ised.  iiurlni',  start  np  of  th.'  s'/stem 
from  a zero  heat  input  to  'the  c.ivicv,  the  results  show  that  .t.as  will  hive  l be 

t.aken  from  tlic  system  il  constant  inlet  pressure  is  used  as  .-i  control  lor  tlie 
system. 

Eiftiirc  3 shows  ;i  |doi  of  the  total  tr'mpi'r.'ilnre  t b i onj’hoii  t I In'  sysli'iii  iisini; 

.1  format  similar  to  .•.f  inn  res  3 and  4.  As  ('xpecled,  Inal  di'pnsitcl  in  tin'  c.-ivity 
cavises  .an  incrense  in  tlie  total  temjieral  nrc'  of  tin'  yas.  fbe  first  heal  cx- 
ehaiiRer  rt'moves  the  m.ajoritv  of  the  lie.aC  in  tin.'  example  considered  iier.'.  I'lie 
blower  is  seen  to  ; .l(•r^.'ase  Lite  total  Lempi'ratnre  of  tlu'  yni.  Tiiis  t einper.ilnre 
rise  is  removed  liy  the  second  lieat  exdianyi'r. 

Fiyiire  b .shows  a plot  of  the  static  pressure  Lhri'iiyhont  the  svsten  for  the 
three  licatitiR  cases.  Ihe  pressure  at  St.ilion  1 is  the  same  for. .ill  the  eases. 
Limited  experimental  data  was  avaii.-ible  from  the  svsiem  under  Simula!  iini  and 
the  results  .are  shown  on  !his  fiRiire  by  Llu'  d.irk  circles.  llu'  resnlf'  sho'.o 
pood  .iRrcement  for  ^he‘  zero  lieat  case  except  near  Sl.il  ion  3 which  is  Llie  repion 
of  till’  1 .SO"  turninp  of  Ihe  flow. 

I-'ipnre  7 shows  the  results  of  tin.'  compntL'r  siniiil.il  ion  lor  t.'i’.il  pr."-.'.ii  la- 
for  the  zero  .and  noinin.al  lie.itinp  case  only.  The  ni.-ij.o  loss.'s  in  liie  s-.-iti'i'i  '.ilh 
CO  iie.atinp  .are  sei’ii  to  lie  .at  the  two  heal  ev.ii.nn.’er'. . 'h.'  loss.";  in  tin-  in.  l 

and  turninp  r.'p  i ons  ^ .a  re  sei  n to  he  sm.ill.  I'or  the  iiomin.il  heat  im,'.  . I'O',  th.  re 
Ls  an  ailded  s i pn  i f i c.ant  loss  of  tot.il  pressure  in  tlie  .Mvitv  ri'plon  wiiich  the 
blower  must  overcome.  'ihe  iie.atinp  in  tiie  cavity  acts  .is  a lo.ad  .in  tin'  'e.-stim 
which  retpiires  acided  blower  power. 

Fipiires  8 and  9 are  ri'snlts  of  the  i n vt's  t i pal  i .'ii  of  ! lu'  ..ffeci  on  ineritinp 
coiulitions  for  off  nominal  Iie.atinp  and  inlet  pressnt.-,  lasp,  . t i V'  I v . in  I'ipnre 
8,  the  inlet  pressure  is  lield  constant  .is  Ihe  he, it  iiipnl  i ■;  '..ii  i.'.i.  I in'  r.  - 

siiltinp  ch.anpes  in  inlet  vc'loeilv,  t em.i'''r.at  nrc . and  m.eis  flew  r,,L.'  ir.'  .-l.'tle.l 

♦- 

as  .1  fnni'tion  .'f  the  v ir'i  ilion  in  In.  .a  1 i n . ! In'  ri"oill'  ef  ii",nri'  '■  .h'.',-  Ih.il 

the  velinity  .iini  in.ass  l lew  rati.'  d..  r.'.asi  wh  i U'  I h.'  1 i nine  r i ! n re  of  ;he  inlet 


coiulition  (.hat  iill'L  pa  taincf  arc  equal  lo  <iii(  lot  pa  raiiii' I i' rs  in  I he  el<>se<l 
]<'op.  Vhon  Che  inlet  fli>w  ceiul  i L ions  ari'  I che  laser  newer  eutnuc  anil 

efficionev,  liquid  eoelaut  I low  race,  j'.a.-  pnqu'rt  ies  and  svslein  '.pninn  l rv  are 
determined,  Chen  a selutien  lor  Che  requ  i reil  heat  exeiianper  e C I'ee  L i vi  ness,  as 
well  as  Cite  number  of  hisil  Crartsfer  units,  and  fur  I lu.’  hlewer  presiiure  i ilia 
can  he  deduced. 


RESUI.TS 


Simulation  of  a hiuh  ener);y  CO.,  electric  disehari'.e  laser  with  an  e-itearn  was 
employed  to  illustrate  the  ste.adv  .state  operation  oi  such  a svstem.  The  results 
are  presented  in  I'ijpires  1 throup.h  7 for  the  sv;;teni  veloeitv,  densilv,  total 
temperatures,  static  (irL^s.sure , and  total  pn-ssure,  re.spee  l,  i ve  1 v . I'he  inlet 
static  pressure  is  1-n qit  the  s.ame  in  these  results. 

I'iyure  ')  shows  the  veloeitv  values  ohtained  from  the  .stendv  st.ate  nre;,-,ram 
for  3 ranp,es  of  heat  deposited  in  the  cavity  repion  (.iiero,  nomin.il.  and  twice 
nominal).  The  velocity  at  the  cavity  inlet  for  the  nomin.il  case  is  us. si  to  non- 
dimensional  i .ae  the  r.’sults  which  are  plotted  relative  to  the  location  aroend 
the  recirculation  system.  .’it  llie  bottom  of  the  fip.ure  is  .a  drawinr.  .ir  the  one- 
d imens  ion.a  1 cross  section  of  the  system  used  in  the  i-omput  .a  t i on . ihe  e.ivitv 
cross  section  was  t.aken  as  constant  for  tlu-  results  I'rinunited  here.  I'iie  heat 
addition  at  the  cavity  is  seen  to  cause  incrLsised  velocity  in  th.'  svsi  .an  up  to 

the  first  i.e.at  exchanq^'r  . The  h I qh  ve  1 oc  i ( v/h  i i’,h  temner.ature  q.as  eii.-o’ in  t ■ ■ rs 

increased  resi.stance  at  the  first  lieat  exchanqer  ns  tin’  heat  input  to  th.'  sv.'iiem 
is  increasetl. 

Fiqure  4 sho'.v.s  the  values  .if  density  throuy.hout  the  svitem  with  Ih.'  densilv 
at  till'  ctlV'ity  inlet  for  Ihe  nom  i n;i  1 -hen  t c.-ise  u.sed  to  non-.l  i mens  i ona  I i ,'.e  the 
results.  The  ri'sults  show  that  Ciu'  total  i n t I'p  r.a  t e.|  mass  in  th.'  s'."-l.'m  d.'creases 
as  the  heat  input  to  the  cavitv  is  incre.ised.  iturini'.  start  up  ot  th.'  svstc'm 
from  .'i  zero  heat  input  to  'Che  cavitv,  thi’  results  show  lh.it  ,cas  '.i' i 1 i have  I.'  be 
taken  from  the  svstem  if  constant  inlet  iiressure  is  usi'd  as  a control  lor  the 
system, 

riqurc  3 shows  a plot  of  the  total  t i.'m|i. 'I'.'i  t ure  throughout  Ihe  svsit'm  iisinq 

.1  format  similar  to  ;.l'’ i-qu  res  3 and  4.  As  I'xpected,  h.nt  depositi'd  in  tin'  .-.•ivitv 

causes  an  incre.-isc?  in  the  total  temper.iture  of  tiu'  I'.as.  The  first  hi'.at  ex- 
c.hanqer  removes  the  m.ajoritv  of  the  lu'.'it  in  the  exampli'  I'ons  idi' r.  d her.'.  ’fhe 
blower  is  seen  Co  ini’rease  the  lot.'il  temperature  of  tlu'  qas.  This  temperature 
rise  is  removeil  hv  the  secoiul  heat  exchanger. 

riqure  h shows  a plot  of  the  static  pressure  thriuir.hout  the  system  for  the 
three  heatinq  ctises.  ihe  pressure  at  St.'ition  1 is  the  s.ii'u'  for. .ill  l lie  easis. 
l.iniiced  experimental  data  was  av.aii.-ible  from  the  svsi.erii  und.'r  s i mu  1 .a  t i on  and 
the  results  .ire  shown  on  this  fiqiiro  bv  the  d.irk  cirrh'S.  The  result',  slio'.v 
qood  aqreemont  for  ^lu’’  zero  iu'.at  case  except  near  Sl.il  ion  3 whuh  is  the  reqion 
of  the  180”  liirninq  of  the  flow. 

Flq'ire  7 shows  the  results  of  tIu'  compute'!'  siniul.il  ion  l..i'  l.e.il  iir."^.'.urc 
for  tIu'  zero  and  nominal  healiiiq  c.isi'  only.  rlie  major  losses  in  fhe  sv'iti'n  •.•■itli 
CO  he.atinq  .are  sei-ii  to  h.'  .at  the  two  lu'.iL  ev,  ii.iniu’r'i . th.'  loss.";  in  th.-  ,hi.  ts 
and  tiirniiiq  r. 'q  i oils  ^ .a  r< ' s.-i  n to  he  sm.ill.  f.ir  thi'  neminal  he.itiiiq  .'I'l.',  tli.re 
is  an  added  s i 'zn  i f I .'.ant  loss  of  toL.il  pressure  in  the  ..ivitv  reqien  which  tiu' 
hlowi'r  must  overcome.  'I'lie  he.it  iiiq  in  the  cavitv  acts  as  a load  .in  the  svstem 
which  I'lqiiires  adiied  blower  pow.'r, 

Fiqnres  8 and  9 are  results  of  the  i ii  vc's  t i qa  L i on  of  the  effeeC  oil  'iperi  L i nq 
ceiuiitions  for  off  nomiii.il  healiiiq  .ind  inl.''t  pressur.',  r es]i.  e p i vc  1 v . In  riqiire 
H.  the  inlet  pr.'ssiire  is  lu'ld  lonsL.anI  .is  the'  lie, it  input  is  '.'.arii'il.  fhe  f.  - 
snltinn  ch.anqes  in  inlet  velo.'itv,  t emp.'fat  iiic , .and  m.iss  fl.'w  r..Le  ir.'  pi. o ted 
.'IS  .1  fune'tion  .'f  t h..  -.i  ir'i  it  i.'ii  in  iieat  in,'..  Ih.'  r.";iiil"  of  i'i",iifi'  sh..W'  iIi.il 
I lie  '/eloeity  .in.i  in.-iss  i I o'w  rail'  .1.  r.'.isi  wli  i 1 e I h.'  I . ripe  r.i  t n r.'  of  tin'  inlet 


R.is  incro;iSL!S  as  tiu'  liraL  input  to  tlu'  oavilv  is  i lu' tiMSiil . 

I'iRurt.'  9 siiows  tlic  rosults  on  vt'lfX'iiv,  t oinpo  ra  L nro , ami  mass  I low  t.ilo 
(for  constant  cavitv  lioaliii!;  at  the  nominal  valmj  as  l ho  inlol  prc'S'-;iir<'  virios 
Tlic  results  show  that  all  threo  (piantit  ios  inoroaso  as  tin.'  pressuro  at  l ho 
cavity  inlet  is  allowcil  to  imreaso. 

• 

CONCLUSIONS 

The  results  presented  in  il  i mens  i (m  1 ess  form  ior  ','.('m.' ra  1 .ipp  Kea  t i on  -eorve 
as  an  important  tool  in  the  I'lit;  i neer  i ns;  ilesiitn  of  hii'.li  energy  laser  s.vsti"). 

The  results  also  pren'ido  an  understanding  of  the  rno.-ins  t'f'r  e.ontr<il  i i ng  inlet 
(.•onditions  whieh,  in  turn,  control  the  laser  onfpnl  ; 'or  fe' ri”anee . i'or  o:-.  ntpio, 
Figtiri's  8 and  9 revi'.al  that  inlet  I eiiipi' ra  t n ri'  i-onlio!  reiiuites  pre‘;snr<.'  .aid 
heat  in(iut  variation  ol  oppeisite  sign  for  stable  control. 


.rviu.-!»oiir  lur  llni  t*  llL-.it  nii;  \aluc- 


iii(K  I rii  111  I i 11  r.itr.'iiiiiil  lot  riir«  i'  lU  atin^’  \<ilu.'.s. 

Constant  Inlet  Pressure 
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201  SERIES  MINI-GAGE 


Couplers 


Typical  PIEZOTRON®  Pressure  Sensing  System 


COUPLER 

1 

: 1 i • ■ 1 

1 r *..r  ■ ■■ » 'i  ..  ;■ 

[ i 128M(x)  CABLE 

1 

I J 

C O O i 

1 ^ , 

1 

201  TRANSDUCER 

READOUT 

To  complete  the  system  a wide  choice  ol  couplers  is  ottered  in  the  548  and  549 
series.  Optional  tilters  and  several  types  ot  power  inputs  are  available.  Model  587D 
Coupler  provides  increased  capability.  Please  reter  to  our  Coupler  Data  Sheet  tor 
details. 


In  addition  Modets  583.  5030  and  5040  Laboratory  Amplitiers  are  ottered  with 
extensive  versatility  and  many  options  for  more  'omplete  pressure  studies. 


( 

k 

Sp«clfleallons 

PERFORMANCE 

UNITS 

201B1 

Modal  Variation 

201 82 

201 B4 

201 BS 

» 

1 

Prastura  Ranga.  5V  out 

psi 

S.OQO 

500 

200 

100 

f 

Ovarranga  

psi 

7,500 

750 

300 

150 

Raaolutlon  (nolsa) 

psi  rms 

0.05 

0.005 

0.002 

0.001 

1 

Maximum  Praaaura  .... 

psi 

15.000 

5.000 

2.000 

1,000 

Sanaltlvity  

mV/psi 

1 

10 

25 

■ 50 

LInaarlty,  B.F.S.L. 

% 

-1 

--1 

rl 

2l 

i 

Raaonant  Fraquancy,  nom. 

kHz 

500 

500 

500 

250 

Rita  Tima.  10-90%  

//  sec 

1 

1 

1 

2 

Tima  Conatant,  R.T. 

sec 

1.500 

400 

200 

100 

1 

Low  Fraquancy  Ratponsa.  —5% 

Hz 

0.0003 

0.001 

0.0025 

0.005 

High  Fraquancy  Raaponta,  -|-5% 

Hz 

100.000 

100.000 

100.000 

50.000 

ENVIRONMENTAL 

Vibration  Sanbitlvity,  max. 

psi/g 

0.002 

Common  Spaca 
0.002 

0.002 

A 

0.002  ' 

Shock.  1 ma 

g 

5.000 

5.000 

5.000 

5.000 

Vibration  Limit 

g 

500 

500 

500 

500 

i 

Tamparatura  Ranga 

F 

-65  to  280 

-65  to  280 

-65  to  280 

-65  to  280 

Tamparatura  Sanaltlvity  Shift 

/ F 

0.03% 

0.03% 

0.03% 

0.03% 

1 

ELECTRICAL 

Output  Currant,  min. 

mA 

2 

2 

2 

2 

Polarity,  praaaura  Incraaaa 

Blaa  Voltaga  

V 

Nagativa 

11  -:2 

Negativa 

11  ±2 

Negative 

11  ±2 

Negative 

11  2:2 

t 

Circuit  Ratum 

Casa 

Case 

Casa 

Case 

Output  Impadanca.  max. 

Ohms 

100 

100 

100 

100 

t 

f 

MECHANICAL 

Walght  

gms 

< 10 

< 10 

<10 

<10  , 

f- 

Caaa  and  Diaphragm  Malarial  .. 
Mounting  Torqua 

in-lb 

Stalnlasa  St. 

24 

Stalnlasa  St. 

24 

Stainless  St. 
24 

Stainless  St.  o 

24 

r 

Saaling  

All  Waidad 

All  Walded 

All  Welded 

All  Welded 

t 

► 

POWER  SUPPLY 

Conatant  Currant  Sourca 

mA 

4^1 

4 ±1 

4 2:1 

4-1  / 1 

1 

Supply  RIppla.  max. 

mV  rms 

25 

25 

25 

25 

Supply  Voltaga.  no  ioa<l 

VDC 

20-30 

20-30 

20-30 

20-30  • '' 

Sourca  Impadanca.  nom. 

ohms 

250  k 

250  k 

250  k 

250  k.  i 

a 
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(.eference 

Number 

Date  of 
Test 

Blower 

Status 

Muffler 

Location 

Pressure 

Temperature 

Velocity 

Energy  of 
Pulse,  J 

5381 

6/26/78 

Off 

2 

1,6,5A 

7 

- 

33.80 

5382 

n 

Off 

It 

1,6, 5. 5 

7 

- 

106.4045 

5400 

Off 

tt 

1,6,5A 

7 

- 

56.59535 

5402 

Off 

It 

1,6,5A 

1 

- 

49.01 

5403 

On 

It 

1,6,5A 

1 

- 

34.06202 

5408 

7/11/78 

On 

tt 

1 , 5A , 6 

1 

- 

71.70709 

5410 

II 

Off 

It 

1,5. 5, 6 

2 

- 

64.22 

5411 

fl 

On 

rt 

1,6, 5. 5 

2 

- 

72.67 

5412 

tl 

Off 

tt 

1,6, 5. 5 

2 

- 

67.6 

5413 

If 

Off 

tt 

1,6, 5. 5 

7 

- 

67.6 

5414 

tf 

Off 

It 

1,6, 5. 5 

3 

- 

60.84 

5415 

It 

On 

It 

1,6, 5. 5 

3 

- 

57.46 

5416 

It 

On 

It 

1,6, 5. 5 

3 

- 

72.67 

5420 

It 

Off 

tt 

1,6,5A 

7 

- 

23.66 

5421 

tt 

Off 

It 

1,6,5A 

7 

- 

57.46 

5422 

tt 

On 

tt 

1 , 6 , 5A 

7 

- 

60.84 

5423 

tt 

On 

tt 

6,5A,4 

7 

- 

60.84 

5424 

It 

tl 

1,6, 5. 5 

3 

- 

64.22 

5425 

tt 

Off 

It 

1,6,5 

5 

- 

62.53 

5426 

It 

On 

tl 

1,6,5 

5 

- 

64.22 

5427 

It 

Off 

- 

1,6,5 

5 

- 

62.53 

5428 

tf 

On 

- 

1,6,5 

5 

- 

67.60 

5430 

tt 

On 

- 

1,6,5 

5 

- 

37.18 

5431 

tt 

Off 

- 

1,6,5 

4 

- 

54.08 

5433 

tt 

On 

- 

1,6,5 

4 

- 

59.15 

5435 

tt 

Off 

- 

1,6, 5. 5 

3 

- 

59.15 

5436 

tt 

On 

- 

1,6, 5. 5 

3 

- 

65.91 

5437 

tt 

On 

- 

1,6, 5. 5 

3 

- 

65.91 

5438 

tl 

Off 

- 

1,6,5 

2 

- 

60.84* 

5439 

It 

On 

- 

1,6,5 

2 

- 

64.22* 

5441 

tt 

On 

- 

1,6,5 

2 

- 

72.67* 

5443 

It 

Off 

- 

1,6,5 

1 

- 

67.60* 
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Reference 

Number 

Date  of 
Test 

Blower 

Status 

Muffler 

Location 

Pressure 

Temperature 

Velocity 

Energy  of 
Pulse,  J 

5444 

7/11/78 

- 

1,6.5 

1 

- 

77.74* 

5445 

tl 

On 

- 

1,6,5 

1 

- 

77.74* 

5446 

fl 

On 

- 

1,6,5 

1 

- 

67.60* 

5448 

7/12/78 

On 

2 

1,5,6 

1 

- 

60.84 

5449 

M 

Off 

2 

1,6,5 

2 

- 

55.77 

5450 

tl 

Off 

- 

1,5,6 

2 

- 

64.22 

5451 

ft 

On 

- 

1,5,6 

2 

- 

59.15 

5452 

If 

Off 

- 

1,5,6 

3 

- 

64.22 

5453 

If 

On 

- 

1,5,6 

3 

- 

67.60 

5454 

II 

On 

- 

1,5,6 

3 

- 

74.93643 

5456 

If 

Off 

- 

1,5,6 

4 

- 

67.60 

5457 

It 

On 

- 

1,5,6 

4 

- 

64.22 

5459 

ft 

On 

1,2 

1,5,6 

4 

- 

72.67 

5460 

tl 

Off 

II 

4,6.5 

5 

- 

60.84* 

5461 

It 

Off 

II 

4.6,5 

5 

- 

62.53* 

5462 

tl 

On 

II 

4,6,5 

4 

- 

64.22* 

5463 

It 

On 

II 

4,6,5 

5 

- 

57.46 

5464 

It 

Off 

II 

4,6,5 

6 

- 

57.46 

5466 

II 

On 

It 

4,6,5 

6 

- 

57.46 

5467 

tl 

On 

II 

4,6,5 

6 

- 

57.46 

5468 

fl 

Off 

It 

4,6,5 

1 

- 

60.84 

5469 

If 

On 

It 

4.6,5 

1 

- 

60.84 

5470 

It 

On 

It 

i,6,5A 

1 

- 

55.77 

5471 

It 

On 

M 

4,6,5 

1 

- 

64.22 

5472 

It 

On 

tl 

4,6,5 

1 

- 

67.60 

5473 

If 

1 

4,6,5 

1 

- 

60.84 

5474 

It 

1 

4,6,5 

1 

- 

67.60 

5475 

It 

On 

1 

4,6,5 

1 

- 

62.53 

5476 

ft 

On 

1 

4,6,5 

1 

- 

64.22 

5477 

tl 

1 

4.6,5 

2 

- 

46.475 

5478 

II 

On 

1 

4,6,5 

2 

- 

60.84 

5479 

It 

On 

1 

4,6,5 

2 

- 

59.15 
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I 

i* 


; T 

* 


1 

1 


i I 


if erence 
dumber 

Date  of 
Test 

Blower 

Status 

Muffler 

Location 

Pressure 

Temperature 

Velocity 

Energy  > 
Pulse,  . 

5480 

7/12/78 

Off 

1 

4,6,5 

3 

_ 

59.15 

5481 

II 

Off 

1 

4,6,5 

3 

- 

55.77 

5482 

It 

On 

1 

4,6,5 

3 

- 

59.15 

5483 

II 

On 

1 

4,6,5 

3 

- 

66.755 

5484 

If 

On 

1 

4,6,5 

4 

- 

65.91 

5485 

It 

1 

4,6,5 

5 

- 

60.84 

5486 

II 

Off 

1 

4,6,5 

5 

- 

64.22 

5491 

II 

Off 

1 

4,6,5 

4 

- 

62.53 

5492 

11 

On 

1 

4,6,5 

4 

- 

54.08 

5493 

11 

1 

4,7,5 

7 

- 

64.22 

5494 

II 

On 

1 

4,7,5 

7 

- 

64.22 

5496 

II 

Off 

1 

4,7,5 

7 

- 

33.80 

5497 

II 

Off 

1 

4,7,5 

7 

- 

54.08 

5498 

II 

Off 

1 

4,7,5 

7 

- 

50.70 

5500 

11 

Off 

1 

4,7,5 

4 

- 

54.08 

5501 

II 

Off 

1 

4,7,5 

4 

- 

54.08 

5502 

II 

On 

1 

4,7,5 

4 

- 

62.53 

5503 

It 

On 

1 

4,7,5 

4 

- 

69.29 

5504 

II 

On 

1 

4,7,5 

4 

- 

70. 135 

5505 

tl 

On 

1 

4,7,5 

5 

- 

67.60 

5506 

II 

On 

1 

4,7,5 

5 

- 

65.065 

5507 

II 

On 

1 

4,7,5 

5 

- 

70.135 

5508 

II 

Off 

1 

4,7,5 

5 

- 

65.91 

5509 

tl 

Off 

1 

4,7,5 

5 

- 

54.08 

5512 

tl 

On 

1 

4,7,5 

4 

- 

64.22 

5517 

7/14/78 

On 

1 

4,5 

4 

1 

65.065 

5518 

If 

On 

1 

4,5 

5 

1 

55.77 

5519 

II 

On 

1 

4,5 

5 

4 

87.035 

5521 

II 

On 

1 

4,5 

5 

4 

67.60 

5522 

It 

On 

1 

4,5 

5 

4 

80.275 

5523 

II 

On 

1 

4,5 

4 

5 

67.60 

* Assumed  Value 
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PVC  Circulator  Experimental  Data 
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>Jc.  5382 
Date  26  June  1978 


Gun  Data 

1.  Upper  Trace 

VoltageSOOmV/div 
Time  ScaleSOOnse^div 
Inverted?  No 

2.  Lower  Trace 
Voltage  2V  / div 
Time  ScaleSOOnse^div 
Inverted?  Yes 
Attenuation 


Voltages 


Pj^  Ch.  1 0.02V  /div 

P,  Ch.  2 0.02V  /div 

0 - 

P.  rCh.  3 0.02V  /div 
T^  Ch.  4 0.05V  /div 


Time  Scale  2msec  /div 
Sustainer  Voltage  26. 2kV 
Flow?  On 
Gas  Type  N.. 

Notes : 


Analyzed  Data: 


E = 106.4045 


• I P;, 


Upper  Trace 
Voltage  IV  /dlv 
Time  Scale  2usec/div 


Voltage  5V  /div 
Time  Scale  500nse/6div 


: A 

.M 

i 

I 

I J 

i 

PvC  Circulator  Exoerimental  Data 


Gun  Data 

1.  Upper  Trace 
Voltage  IV  /dlv 
Time  Scale  2usec/div 
Inverted?  ^e^  No 

2.  Lower  Trace 
Voltage  5V  /div 
Time  Scale SOOns^div 
Inverted?  Yes  (n^ 
Attenuation 


Analyzed  Data: 


T,  Ch.  4 0.05V  /div 


Time  Scale  2msec  /div 
Sustainer  Voltage  25 . 9kV 
Flow?  On  f .1 

Gas  Type  N„ 


E * 49.01 


Gun  Data 
1.  Upper  Trace 

Voltage  IV  /div 


2.  Lower  Trace 

Voltage  5V  /div 
Time  Scale  500nsec/div 


Time  Scale  2msec  /div 
Sustainer  Voltage  26.0kV 
Flow?  Off 


9f 

7^ 

' 

f 

-JH 

L_U 

1 

f 

• 

' 1 



' 

~\ 

• « 

,, 

1 

i J 

f ^ 

V scots 

i • 

— 

E = 34.06202 
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No.  5408 
Date  II  July  1978 

Gun  Data 

1.  Upper  Trace 
Voltage  IV  /div 
Time  Scale  2jjsec_/ div 
Inverted?  ^e^  No 

2.  Lower  Trace 
Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Yes  (N^i 
Attenuation 


PVC  Circulator  Experimental  Data 
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No.  5410 

Date  11  July  1978 

Gun  Data 

1.  Upper  Trace 
Voltage  IV  /div 
Time  Scale  2usec/ div 
Inverted?  (y^'  No 

2.  Lower  Trace 
Voltage  2V  /div 
Time  Scale  500ns ec/ div 
Inverted?  Yes 
Attenuation 


PVC  Circulator  Experimental  Data 


1.  Upper  Trace 

Voltage  IV  /div 
Time  Scale  2usec  /div 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Analyzed  Data 


Time  Scale 

2msec  /div 

Sustainer 

Voltage  25.3 

Flow?  On 

Gas  Type  _ 

^ 

PVC  Circulator  Experimental  Data 
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Date  11  July  1973 

Gun  Data 
Upper  Trace 
Voltage  IV  /div 
Time  Scale 2ysec  /div 
Inverted?^j^  No 

2.  Lower  Trace 

Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Yes 
Attenuation 


Voltages 

Pi 

Ch.  1 0.02V  /div 

p. 

Ch.  2 0.02V  /div 

6 

P. 

,Ch.  3 0.02V  /div 

0. 

T- 

J 

Ch.  4 0.05V  /div  i 

Time  Scale  2msec  /div 
Sustainer  Voltage  25 . 8 
Flow?  On 
Gas  Type 

Notes:  temo . unit  off 


Analyzed  Data 


Upper  Trace 
Voltage  IV  /div 
Time  Scale  2vjsec/div 


Voltage  2V  /div 
Time  Scale  500nsec/div 


2V  I * 

tv  : 

: 2m 

s 

1 

» - fiSrsT 

■1  ‘ 
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i 

...iJL 
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i-l- 
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r' 

PVC  Circulator  Experimental  Data 


Zi  I t 2ns 


"P  \ T > r " 


. / \ 

/ 'HikPP.  % 


'v,  y*'^''v^'^.iw  ' 


Analyzed  Data: 
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Date  30  June  1978 

Gun  Data 
Upper  Trace 
Voltage  IV  /div 
Time  Scale  2usec/ dlv 
Inverted?  ^e^  No 

Lower  Trace 
Voltage  2V  /div 
Time  Scale  500nsec/aiv 
Inverted?  Yes 
Attenuation 


Voltages 

p 

*1 

Ch.  1 _ 

0.02V  /div 

Ch.  2 _ 

0.02V  /div 

p. 

,Ch.  3 

0.02V  /div 

0.05V  /div 


Time  Scale  5msec  / div 
Sustainer  Voltage  25.8 
Flow?  Off 

Gas  Type  N„ 


?VC  Circulator  Experimental  Data 


9t 


* 20)^ 


29s 


Analyzed  Data 
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Date  II  July  1978 

Gun  Data 

1.  Upper  Trace 

Voltage200mV/div 
Time  Scale  2msec /dlv 
Inverted?  No 

2 . Lower  Trace 
Voltage  5V  /div 

Time  Scale  500nsec/div 
Inverted?  Yes 
Attenuation 


Voltages 

?!  Ch.  1 _ 

0.02V  /div 

P,  Ch.  2 

5 

0.02V  /div 

Ch.  3 

0.02V  /div 

Time  Scale  2msec  /div 
Sustainer  Voltage  25. 8kV 
Flow?  On  (0^ 

Gas  Type  N„ 

Notes:  Muffler  (II) 


Gun  Data 
1.  Upper  Trace 

Voltage  200mV/ div 
Time  Scale  2msec  /div 
Inverted?^]^  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Time  Scale  2msec  /div 
Sustainer  Voltage  25 . SkV 
Flow?  On  (off^ 

Gas  Type  N’., 

Notes:  


Gun  Data 
Upper  Trace 
Voltage lOOmV/div 
Time  Scale  2msec/div 
Inverted? (Ye^  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Attenuation 


?,  Ch.  2 0.02V/ div 


Ch.  3 0.02V/div 


T,  Ch.  4 0.05V/div 


Notes:  Muffler  (II 


Analyzed  Data 


r 

[V 
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♦-.♦♦it  t-*-t  . 
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SOOtf 

PVC  Circulator  Experimental  Data 
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N’o.  5425 
Date  11  July  1978 


Gun  Data 

1.  Upper  Trace 
Voltage lOOmV/div 
Time  Scale  2msec  /div 
Inverted?  (y^;  No 

2.  Lower  Trace 
Voltage  2V  /div 

Time  Scale  500nsec/ div 
Inverted?  Yes 
Attenuation 
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No.  5426 

Date  11  July  1978 

Gun  Data 

1.  Upper  Trace 

Voltase200mV/dlv 
Time  Scale  2msec/dlv 
Inverted?  No 

2.  Lower  Trace 
Voltage  2V  /div 

Time  Scale  5Q0nsec/div 
Inverted?  Yes 
Attenuation 
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No.  5427 
Date  11  July  1978 

Gun  Data 

1.  Upper  Trace 

Voltage  200mV/div 
Time  Scale  2msec  /div 
Inverted?  No 

2 . Lower  Trace 
Voltage  2V  /div 

Time  Scale  SOOnsec/aiv 
Inverted?  Yes  (N^ 
.\ttenuation 


I 


Voltages 

Ch.  1 0.02V /div 

Pg  Ch.  2 0.02V/div 

P.  Ch.  3 0.02v/div 
T5  Ch.  4 0.05V /div 

Time  Scale  2msec /div 
Sustainer  Voltage  25 . 8kV 
Flow?  On  (OfT) 

Gas  Type 

Notes:  No  Muffler 


Gun  Data 
Upper  Trace 
Voltage200mV/div 
Time  Scale  2msec/ div 
Inverted? (Yes^  No 


Voltage  2V  ’'div 
Time  Scale  500nsec/div 


Attenuation 


Voltages 

Ch. 

1 _ 

0.02V  /div 

?,  Ch. 
b 

2 _ 

0.02V  /div 

P.  Ch 

D 

. 3 

0.02V  /div 

T Ch. 
q 

4 _ 

0.05V  /div 

Time  Scale 

2msec  /div 

Sustainer  Volcaeie  25.8kV  1 

Flow? 

Off 

Gas  Type 

N, 

Notes : 

Dace  11  July  1978 


Volcage  2V  /div 
Time  Scale  SOOnsec/ div 


Inverted?  Yes  (Mo 


Attenuation 


GIV 


Analyzed  Data 


PVC  Circulator  Experimental  Data 


Date  11  July  1978 


Gun  Data 
Upper  Trace 
Voltage  200mV/div 
Time  Scale  2msec/div 


Voltage  2V  /div 
Time  Scale  500nsec/div 


P,  Ch.  2 0.02V  /div 
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Gun  Data 
tapper  Trace 
Voltage  200mV'div 
Time  Scale  2usec /div 
Inver ted?CYes'  No 


Attenuation 


* 

2001 

ir 

s 

i 

1 

I 

« 

‘ 

i 

k,. 

iiZ 

i 

c 

r 

■M-W- 

- 

f 

• 

t\A 

bX 

V 

" ♦ 

: 

» 

iCOr 

PVC  Circulator  Experimental  Data 


* isooir  f 
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Date  11  July  1978 


Gun  Data 
Upper  Trace 
Voltage200mV/div 
Time  Scale  2iisec  / div 
Inverted?  ^e^  No 

2.  Lower  Trace 

Voltage  2V  / div 
Time  Scale  500nsec/div 


Inverted?  Yes  Qlo 
Attenuation 


Voltages 


Ch.  1 0.02V  /div 

P,  Ch.  2 0.02V /div 

o 

^Ch.  3 0.02V  /div 

T Ch.  4 0.05V /div 

3 


Time  Scale  Sms ec  /div 
Sustainer  Voltage  25 . 3kV 
Flow?  Off 

Gas  Type  y 


Notes:  \v 


^1 


PVC  Circulator  Experimental  Data 


Date  11  July  1978 


Gun  Data 
Upper  Trace 
Voltage  200niV/dlv 
Time  Scale  2i]ser.  /dlv 
Inverted?  (y&Sj  No 


Lower  Trace 
'■oltage  2v  /dlv 
Time  Scale  500nsec/div 
Inverted?  Yes  (n^ 
Attenuation 


Voltages 

Pj^  Ch.  1 0.02V  /div 
?,  Ch.  2 0.02V  /div 


Time  Scale 

5msec  ''div 

Sustainer 

Voltage  25.8kV 

Flow? 

Off 

Gas  Type 

-JL^ 

no  muffler 

Analyzed  Data: 

T, 

^1 


Gun  Data 
Upper  Trace 
Voltage  7nnniv/div 
Time  Scale  2usec/cliv 
Inverted?  No 

Lower  Trace 
Voltage  2V  /div 
Time  Scale  500ns.ee/div 
Inverted?  Yes 
Attenuation  


Voltages 

Ch.  1 0.02V  /div 

Pg  Ch.  2 n.n2V  /div 
Pj  Ch.  3 n.n2v  /div 
^2  Ch-  ^ n.nsv  /div 

Time  Scale  2msec  /div 
Sustainer  Voltage  25 . 81 


Flow?  On 
Gas  Type 


Notes:  nn  muffler 


Gun  Data 
Upper  Trace 
Volcage200mV/ div 
Time  Scale  2usec  / div 
Inverted?  (Yes,  No 


Analyzed  Data 


Assumed  value 


PVC  Circulator  Exoerimental  Data 


PVC  Circulator  Experimental  Data 


2ii  i # 

. _ L.  

aoix 

r 

I 

■ • 

♦ 

/ 

A 

■■  ^ 

« — 

3 

iCOrf 

Analyzed  Data; 


E = 67.60’ 


Gun  Data 
1.  Upper  Trace 

Voltage  ZOOmVdiv 
Time  Scale  2usec  /div 
Inver ted?CTe^  No 


1.  Lower  Trace 

Voltage  2V  /div 
Time  Scale  SOOnsec/div 
Inverted?  Yes 
Attenuation 


Voltages 

Ch.  1 Q.02V  /div 
P.  Ch.  2 n /div 


7V  /div 


Tj  Ch.  4 o.nqy  /div 


Time  Scale  2asec  /div 
Sustainer  Voltage  2 5 . 8k V 
Flow?  On 
Gas  Type 

Notes:  no_3iuffler 


Assumed  value 


PVC  Circulator  Experimental  Data 


n 


s 


I j'A  ^ 

V*  \ ( V 

I ‘ 


/Analyzed  Data: 


E = 77.74 


Assumed  value 


Date  11  July  1978 

Gun  Data 
Upper  Trace 
Voltage 200mV/div 
Time  Scale  2Lisec  / div 
Inverted?  (y^  No 

Lower  Trace 
Voltage  2V  / div 
Time  Scale  500nsec/div 
Inverted?  Yes 
Attenuation 


Voltages 

Ch.  1 

0.02V  /div 

Ch.  2 

0.02V  /div 

0.05V  /div 


Time  Scale  2msec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  On  Off 
Gas  Type  N^ 


mmm 


PVC  Circulator  Experimental  Data 


2mS 


./  /wv-  y 


Analyzed  Data: 


E = 77.74’ 


Assumed  value 
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Gun  Data 
Upper  Trace 
Voltage  200mV/div 
Time  Scale  2usec  /dlv 
Inverted?^e^  No 

Lower  Trace 
Voltage  2V  /'div 
Time  Scale  500nsee/div 
Inverted?  Yes  (N? 
Attenuation 


Voltages 

P.  Ch. 

1 0.02V 

_/'div 

i 

P,  Ch. 

2 0.02V 

/div 

T,  Ch.  4 f 

1.1  nv  /div 

Time  Scale  10msec  /div 

Sustainer 

Voltage  25 .! 

Flow? 

Off 

Gas  Type 

N. 

Notes:  no 

muffler 

PVC  Circulator  Exoerunental  Data 


\ . < , N . 
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Date  11  July  1978 

Gun  Data 

1.  Upper  Trace 

Voltage  200niV/div 
Time  Scale  2usec  /dlv 
Inverted?  No 

2.  Lower  Trace 
Voltage  2V  /div 
Time  Scale  SOOnsec/ div 
Inverted?  Yes  ^^o^ 
Attenuation 


\ ^ •*' 


Date  12  July  1978 


Gun  Data 
Upper  Trace 
Voltage  200mV/div 
Time  Scale  2usec  /div 
Inverted?  (Y^  No 


Voltage  2V  / div 
Time  Scale  SOOnsec/ div 
Inverted?  Yes  (n^ 


Time  Scale  2msec /div 


Sustainer  Voltage  25 ■ 8kV 
Flow?  (Or^  Off 
Gas  Type  


Analyzed  Data 


PVC  Circulator  Exoeriinental  Data 


Voltages 

Pt  Ch.  1 0.02V  /div 

Pg  Ch.  2 Q.02V  /div 

Pj  Ch.  3 n.o?v  /'div 
Ch.  4 n ■ risv  /div 

Time  Scale  2m^pr  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  On  (^) 

Gas  Type 
Notes : 
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No . 5449 

Date  12  Julv  1978 


Gun  Data 


1.  Upper  Trace 

Voltage200mV/div 
Time  Scale 2usec  /div 
Inverted?  (Y^l  No 


2.  Lower  Trace 


Voltage  2V  /div 


Time  Scale  500nsec/div 


Inverted?  Yes  ^ol 


.attenuation 


PVC  Circulator  Experimental  Data 


j 


Date  12  July  1978 

Gun  Data 
Upper  Trace 
Voltage  2mV  /dlv 
Time  Scale  2L!sec/dlv 
Inverted?  No 

Lower  Trace 
Voltage  2V  / div 
Time  Scale  500nsec/div 
Inverted?  Yes  <^l 
Attenuation 


Analyzed  Data 


Voltages 

P,  Ch.  1 0.02V  /div 

P3  Ch.  2 _ 

0.02V  /div 

; 

P,  Ch.  3 

0 

0.02V  /div 

■ 

1 

T2  Ch.  4 _ 

0.05V  /div 

. 

^ 1 
, '! 

Time  Scale 

Snsec  /div 

1 i 

Sustainer  Voltage  25.8kV 

j 

Flow?  On 

Gas  Type  _ 

-^^2 

Notes:  

P- 

0 

^1 


PVC  Circulator  Experimental  Data 
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Analyzed  Data 
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Date  12  July  1978 


Gun  Data 

1.  Upper  Trace 
Voltage  2mV  /div 
Time  Scale  2usec/dlv 
Inverted? (Ye^  No 

2.  Lower  Trace 
Voltage  2V  /div 

Time  Scale  500nsee/div 
Inverted?  Yes  (n^ 


Attenuation 


Voltages 

?,  Ch.  1 0.02V  /div 


P3  Ch.  2 0.02V  /div 


P^  Ch.  3 0.02V  /div 


T2  Ch.  4 0.05V  /div 


Time  Scale  5msec  /div 
Sustainer  Voltage  25 .8kV 
Flow?  (2^  Off 
Gas  Tvpe  N, 


1 


PVC  Circulator  Experimental  Data 


I 


i 


Analyzed  Data 


Date  12  July  1978 

Gun  Data 
Upper  Trace 
Voltage  2inV  /dlv 
Time  Scale  2usec  /div 
Inverted?  ^e^  No 

Lower  Trace 
Voltage  2V  /div 
Time  Scale SOOnsec/ div 
Inverted?  Yes  (^i 
Attenuation 


Time  Scale 

5msec /div 

Sustainer 

Voltaee  25 .8kV 

Flow?  On 

(1) 

Gas  Type 

>L 

Voltages 

P, 

Ch. 

1 0.02V 

/div  ' 

P5 

Ch. 

2 0.02V 

/div  j 

Ch 

. 3 0.02V 

_/div  ■ 

Ch. 

4 0.05V 

_/div 

1.  Upper  Trace 

Voltage  2mV  /div 
Time  Scale  2usec  / div 


Voltage  2V  /div 


Time  Scale  500nsec/div 
Inverted?  Yes  (No) 


P5  Ch.  3 0.02V  /div 


Time  Scale  2msec  /div 
Sustainer  Voltage  25 .8kV 
Flow?  (on)  Off 


1 
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PVC  Circulator  Exoerimental  Data 
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Analyzed  Data: 


E = 74.93643 
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Dace  12  July  1978 

Gun  Data 
Upper  Trace 
Voltage  2mV  /dlv 
Time  Scale  2usec/div 
Inverted?  No 


2.  Lower  Trace 

Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Yes 
Attenuation 


Voltages 

Pj^  Ch.  1 0.02V  /div 

P5  Ch.  2 0.02V  /div 

P^  Ch.  3 n n2v  /div 
Tj  Ch.  4 n c\’=.v  /'div 

Time  Scale  5msec  /div 
Sustainer  Voltage  26 .OkV 
Flow?  Off 

Gas  Type  N„ 


PVC  Circulator  Experimental  Data 
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Date  12  July  1978 

Gun  Data 

1.  Upper  Trace 
Voltage  ZOOWdiv 
Time  Scale  2usec  /dlv 
Inverted?  ^e^  No 

2.  Lower  Trace 
Voltage  2V  /div 

Time  Scale  500nsec/div 
Inverted?  Yes 
Attenuation 


0.02V  /div 


Time  Scale  5msec 

/div 

Sustainer  Voltage 

25.8kV 

Flow?  On 

Gas  Type  N^ 

Analyzed  Data: 


^1 


Gun  Data 
1.  Upper  Trace 

Voltage  200mV/ div 
Time  Scale  2usec/ div 
Inver  ted?rY^  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Yes  (No) 


Analyzed  Data 


Gun  Data 
Upper  Trace 
Voltage  200inV/div 
Time  Scale  2usec  /dlv 
Inverted? (Ye^  No 


Lower  Trace 

Voltage  2V  /div 

Time  Scale  500nsec/aiv 


Attenuation 


Gas  Type  N„ 

Notes:  both  mufflers  in 


Analyzed  Data 


FVC  Circulator  Exuerjjnental  Data 


Analyzed  Data: 


E = 60.84 


Assumed  value 


Date  12  July  1978 

Gun  Data 
Upper  Trace 
Voltage 200mV/div 
Time  Scale  2jjsec_/div 
Inverted?  No 

Lower  Trace 
Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Tes  ^oj 
Attenuation 


Voltages 

P,  Ch.  1 

0.02V  /div 

P,  Ch.  2 . 

0.02V  /div 

Channel  3 was  hit  by  pulse 
at  trigering  time 


P5,T5 


!i9686fiSI 


AA-’SjV’ 


Date  12 July  1978 


Gun  Data 
Upper  Trace 
Voltage  lOQtnV/  div 
Time  Scale 2usec  /div 


Voltage  2V  /div 
Time  Scale  5Q0nsec/cliv 


Flow?  (On 


Gun  Data 
Upper  Trace 
Voltage  lOOmV'div 
TLne  Scale 2usec  /dlv 
Inverted?  No 


Lower  Trace 

Voltage  2V  /div 

Time  Scale  SOOnsec/div 


Attenuation 


Sustainer  Voltage 
Flow?  On 

Gas  Type  

Notes : 


PVC  Circulator  Experimental  Data 


Analyzed  Data 
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No.  5466 

Date  12  July  1978 

Gun  Data 
1.  Upper  Trace 

Voltage  lOOniV/div 
Time  Scale  2usec/div 
Inverted? ("Yes^  No 


Lower  Trace 
Voltage  2V  / div 
Time  Scale  500nsec/ div 
Inverted?  Yes 
Attenuation 


Voltages 

P,  Ch.  1 0.02V  /div 


Ch.  2 0.02V  /div 


Ch.  3 

0.02V  /div 

T,  Ch.  4 

0 “ 

0.05V  /div 

Time  Scale 

5msec/div 

Sustainer  Voltage  25.8kV 

Flow? 

Off 

Gas  Tvpe 

N, 

Notes : 

IfiSSSI 


Gun  Data 
1.  Upper  Trace 

Voltage lOOmV/dlv 
Time  Scale  lOusec/div 
Inverted? (Ye^  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Pa  Ch.  1 0.02V  /div 


P,  Ch.  2 0.02V /div 


lOOHz  bandwidth 


Analvzed  Data 


Gun  Daca 
Upper  Trace 
Voltage  lOOmydiv 
Time  Scale  lOuset/dlv 
Inverted?  ^es^  No 


Lower  Trace 
Voltage  2V  /div 
Time  Scale  50Qnser/div 
Inverted?  Yes  ^o) 
Attenuation  


Time  Scale  50msec  /div 
Sustainer  Voltage  25 .8kV 
Flow?  (On;  Off 


Analyzed  Data 


PVC  Circulator  Exoeriaental  Data 


Date  12  July  1978 


Gun  Data 


upper  Trace 
Voltage  lOOmV/div 
Time  Scale  lOusec/dlv 
Inverted?^e^  No 


2.  Lower  Trace 


Voltage  2V  /div 
Time  Scale  500ns ec/div 
Inverted?  Yes  ^o^ 


Attenuation 


Voltages 


9mm 


Time  Scale  . laec  /div 
Sustainer  Voltage  25 .8k.V 
Flow?  (On)  Off 


Notes 


SiSSfii 


Gun  Data 
1.  Upper  Trace 

Voltage  lOOmV/dlv 
Time  Scale  lOuseo^div 


Voltage  2V  /div 
Time  Scale  500nseo/dlv 


Sustainer  Voltage  25 . 8kV 
Flow?  On  Off 


Gas  Type  N„ 

Notes:  Horn  muffler 


Gun  Data 
Upper  Trace 
VoltagelOOmV/div 
Time  Scale IQusec/dlv 
Inverted? (Ym;  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Time  Scale  5msec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  On  Off 


Notes:  Horn  muffler 


V 

S ^-4^ 

rV^ 

• 

» 

1 

f 1 

-4 

i 

j*r  • 

tI^'T  .! 

• i 

^ . 1.  . -i.-. 

‘iT 

'.'It 

A i 

.■  * 1 

-i 

ij 

r 

V ■BsH 

i 

. 1 

\ 

i-l" 

^ ; ' 

r** 

Gun  Data 
Upper  Trace 
Voltage  lOOmV/div 
Time  Scale  IQusec/div 
Inverted?  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Time  Scale  2msec  /div 
Sustainer  Voltage  25 .8kV 


Notes;  Horn  muffler 


Analyzed  Data 


Gun  Data 
1.  Upper  Trace 

Voltage lOOmV/ div 
Time  Scale lOusec/ div 
Inverted? (Yc^  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Time  Scale iQmsec  /div 
Sustainer  Voltage  25 .8kV 
Flow?  Off 


Analyzed  Data 


Voltages 

P,  Ch. 
4 

1 

0.02V  /div 

P,  Ch. 

2 

0.02V  /div 

6 

Ch 

. 3 

0.02V  /div 

T Ch. 

4 

0.20V  /div 

Gun  Data 


Upper  Trace 
Voltage lOOmV/ div 
Time  Scale  L0use(/div 


Voltage  2V  /div 
■^ime  Scale  500nsec/div 
Inverted?  Yes  C^o 


Time  Scale  2msec /div 
Sustainer  Voltage  25 . 8k. V 
Flow?  On  Off 


Gas  Type 

Notes:  Horn  muffler 


Li 

13 

ir 

DH 

m 

PVC  Circulator  Experimental  Data 


Date  12  July  1978 


Gun  Data 
Upper  Trace 
Voltage lOOmV/div 
Time  Scale  IQusec/ div 
Inverted?  (^e^  No 

Lower  Trace 
Voltage  2V  /div 
Time  Scale  500nsec/dlv 
Inverted?  Yes 
Attenuation  


Voltages 


?,  Ch.  1 0.02V  /div 

M-  

P,  Ch.  2 0.02V  /div 

P^  Ch.  3 Q.02V  Mlv 
"2  0.05V  /div 


Time  Scale  2msec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  (^2^ 

Gas  Type  N„ 

Notes:  Horn  muffler 


J- 


Ki' 


Gun  Data 
Upper  Trace 
Voltage  ImV  /div 
Time  Scale  LOusec/ div 
Inverted? (Ve^  So 


Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Yes  (S^ 


Gas  Type  N ^ 

Notes:  Horn  muffler 


K-'"' 

t JV 

: 

PVC  Circulator  Experimental  Data 


Analyzed  Data: 


E = 59.15 


Page  199 


Date  12  July  1978 

Gun  Data 
1.  Upper  Trace 

Voltage  ImV  /dlv 
Time  Scale  lOusec/dlv 
Inverted?  CYes'j  No 


Lower  Trace 
Voltage  2V  / div 
Time  Scale  500nsec7div 
Inverted?  Yes 
Attenuation 


Voltages 

P4  Ch.  1 0.02V  /div 

Pg  Ch.  2 n.02V  /div 

P5  Ch.  3 n n')v  /div 
Tj  Ch.  4 n nsv / div 

Time  Scale  5msec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  On  (0^ 

Gas  Type 

Notes:  Horn  muffler 


liBiaBWI 


Gun  Data 
1.  Upper  Trace 

Voltage  100in\/  div 
Time  Scale  IQuset/dlv 
Inverted?  No 


Voltage  2V  /dlv 
Time  Scale  500ns9c/div 


Time  Scale  50msec /div 
Sustainer  Voltage  25 . 8kV 
Flow?  Off 

Gas  Type 


t- 

•'V*v  ^ 

1 

1 ' ii 

1 1 • 

1 ' < 1 

-1 

[ i’i. : ■ 

MTim 

■*'  >.  1 

1 l 

ik*yB» . . •>■'.•  »■■  ■'*■'  * 1 

^ ' ' ■V:- ' j » 1 

■*p-  > 

-Mi#/ 

* i 

Upper  Trace 
Voltage  lOOmV/div 
Time  Scale  lOusec/div 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Ch.  4 0.02V/div 


Time  Scale  2msec  /div 


Sustainer  Voltage 
Flow?  On  Off 
Gas  Type  N\ 
Notes:  


Analyzed  Data 


PVC  Circulator  ExDerimental  Data 


Page  205 


Date  12  Julv  1978 


Gun  Data 


1.  Upper  Trace 

Voltage lOOmV/ div 
Time  Scale  lOysec/dlv 
Inverted?  No 


Lower  Trace 


Voltage  2V  /div 
Time  Scale 500nsec/div 


Inverted?  Yes  (No i 


Attenuation 


Voltages 


Time  Scale  5msec  /div 


Sustainer  Voltage  25 .8kV 


Flow?  On  vOff/' 


■M 


m 


Gas  Type  N 


Notes 


mur  r±er 


Analyzed  Data 


9S89 


PVC  Circulator  Experimental  Data 


Gun  Data 
Upper  Trace 
Voltage 1 00m V/ div 
Time  Scale lOusec/ div 
Inverted?rY^)  No 


Time  Scale  500nsec/dlv 


P,  Ch.  2 0.02V/dlv 


Ch.  3 0.02V/div 


Time  Scale  3msec  /div 
Sustainer  Voltage  25 . 3kV 
Flow?  On  f oTf^ 


PVC  Circulator  Experimental  Data 


Page  207 

No.  5492 
Date  12  July  1978 

Gun  Data 

1.  Upper  Trace 
Voltage lOOmV/div 
Tine  Scale lOusec/div 
Inver ted?(j^^i  No 

2.  Lower  Trace 
Voltage  2V  /div 

Time  Scale  500nsec/dlv 
Inverted?  Yes 
Attenuation 


Voltages 

P,  Ch.  1 0.02V  /div 


P,  Ch.  2 0.02V  /div 


Page  208 
No.  5493 
Date  12  July  1978 

Gun  Data 

1.  Upper  Trace 
Voltage lOOmV/div 
Time  Scale lOusec/dlv 
Inverted?(Y^  No 

2.  Lower  Trace 
Voltage  2V  /dlv 

Time  Scale  50Qnsec/dlv 
Inverted?  Yes  (n^ 
Attenuation 


Date  12  July  1978 


Gun  Data 
1.  Upper  Trace 

Voltage lOOmV/div 
Time  Scale lOyisec/dlv 
InvertedT^Yes)  No 


Time  Scale  500nsec/dlv 
Inverted?  Yes  ("n^, 


Cli-  3 O.Q2V/div 


Flow?  (On)  Off 


PVC  Circulator  Experimental  Data 

Page  210 
N'o.  5496 
Date  12  Julv  1978 

Gun  Data 

1.  Upper  Trace 
Voltage  lOOmV/  div 
Time  Scale  IQusec/ div 
Inverted?(^Y^;  No 

2.  Lower  Trace 

Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Yes  (No 
Attenuation  


Gun  Data 
1.  Upper  Trace 

Voltage lOOmV/div 
Time  Scale  lOusec/ dlv 
Inver  ted?CYM  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 


Voltages 


Ch.  3 0.02V/div 


0.Q5V  /div 


Time  Scale  . 5msec/div 
Sustainer  Voltage  25 . 
Flow?  On  ' 


Motes:  Horn  muffler 


Analyzed  Data 


Gun  Oaca 
1.  Upper  Trace 

Voltage  lOOtnV/div 
Time  Scale lOusec/div 
Inverted?  I Ye^  No 


Voltage  2V  /div 
Time  Scale  SOOnsec/dlv 


Attenuation 


P,  Ch.  3 0.02V/div 


Time  Scale  5msec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  On  ■ 


Gas  Type 

Notes:  12-1"  honeycomb 
sections (6  coarse  + 6 
fine)  1 KHz  low  pass 
filter 


PVC  Circulator  ExDerimentai  Data 


E = 5 


214 

5501 

Date  12  July  1978 

Gun  Data 
Upper  Trace 
Voltage lOOmV/div 
Time  Scale IQusec/dlv 
Inverted?(^Yesi  No 

Lower  Trace 
Voltage  2V  /dlv 
Time  Scale  500nsec/div 
Inverted?  Yes  ; No', 
Attenuation 


Voltages 

?, 

Ch. 

1 0.02V 

/div 

4 

o 

‘ 7 

Ch. 

2 0.02V 

_/  div 

Ch, 

. 3 0.02V 

_/div 

Ch. 

4 0.05V 

/ div 

Time  Scale  5msec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  On 
Gas  Type  N,, 

Notes:  12-1"  honeycomb 


1 KH2  low  pass 

P. 


100^ 


lOfa 


Gun  Data 

1.  Upper  Trace 

V o 1 t ag e 1 OOmV / d i V 
Time  Scale lOysec/div 
Inverted?  .Ye^  No 

2.  Lower  Trace 
Voltage  2V  /div 

Time  Scale  500nsec/div 
Inverted?  Yes  No 
Attenuation  


Voltages 

Ch.  1 0.02V  /div 

P,  Ch.  2 0.02V  /div 

P.  Ch.  3 0.02v/div 

T.  Ch.  4 0.05V  /div 


Time  Scale  5msec  /div 


Suscainer  Voltage  25 . 8k\ 


Flow?  : On  , Off 


Gas  Type 

Notes:  12-1"  honeycomb 
(6  coarse  6 fine) 

1 KHz  low  pass  filter 


4 t j ^ 
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Mo.  5503 
Date  12  July  1978 

Gun  Data 

1.  Upper  Trace 
Voltage lOQmV/ div 
Time  Scale  IQusec/'dlv 
Inverted?( Yes  Mo 

2.  Lower  Trace 
Voltage  2V  /div 

Time  Scale  500nsec/div 
Inverted?  Yes  \^o 
Attenuation  


Gun  Data 
Upper  Trace 
Voltage IQOmV/div 
Time  Scale lOusec/dlv 
Inverted?  Yes  No 


Lower  Trace 
Voltage  2V  /div 
Time  Scale  SOOnsec /div 
Inverted?  Yes  i No 


Attenuation 


Time  Scale  0. 2sec^div 
Sustainer  Voltage  25 . 8kV 
Flow?  1 On  Off 


Notes:  12-1"  honeycomb 
(6  coarse  + 6 fine) 

100  Hz  low  pass  filter 


7— 

- A 

. ,.jI 

• 

Voltages 

?4  Ch. 

1 0.02V 

_/div  ; 

P-  Ch. 

2 0.02V 

/div  ! 

Gun  Data 
Upper  Trace 
Voltage  lOOinV/div 
Time  Scale  IQusec/'div 
Inverted?',^Ye^(  No 


Voltage  2V  /div 
Time  Scale  500nsec/H i v 
Inverted?  Yes  '^No' 


Time  Scale  0 . 2sec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  iOn)  Off 


Gas  Type 

Notes:  100  Hz  bandwidth 
low  pass  filter  12-1" 
honeycomb  ( 6 coarse  + 
6 fine) 


Analyzed  Data 


* lOM  { lata 


Analyzed  Data: 


E = 65.065 


Date  12  July  1978 

Gun  Data 
Upper  Trace 
Voltage lOOmV/div 
Time  Scale lOusec/div 
Inverted?(Ye^  No 

2.  Lower  Trace 

Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Yes  No,' 
Attenuation 


Voltages 

P,  Ch.  1 0.02V  /div 

1 

Ch.  2 0.02V  /div 

?-  Ch.  3 0.02V  /div 


Ch.  4 


V /div 


Tine  Scale  Smspr  /div 
Sustainer  Voltage  25 ■ 8kV 
Flow?  'yOr^)  Off 
Gas  Type  N„ 

Notes:  12-1"  honevcomb 


(6  coarse  + 6 fine) 

1 KHz  low  oass  filter 


PVC  Circulator  ExDerinental  Data 


A ' '!/v 

pT 

1 

. . . . 

M ' 
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P 
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Date  12  July  1978 

Gun  Data 

1.  Upper  Trace 
Voltage  lOOmVdiv 
Time  Scale  10use<(div 
Inverted? 

2.  Lower  Trace 
Voltage  2V  / div 

Time  Scale  500nsec/div 
Inverted?  Yes 
Attenuation 


W. 


Voltages 

?,  Ch.  1 0.02V  /div 


0.02V  /div 


Time  Scale  2msec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  iOn'i  Off 

N.  — " 

Gas  Type 

Notes:  12-1"  honevcomb 


(6  coarse  + 6 fine) 


1 KHz  LPF 


Anaivzed  Data 


E = 70.135 


Date  12  July  1978 


Gun  Data 
Upper  Trace 
Voltage  lOOmV/div 
Time  Scale  lOusec/dlv 
Inverted?(Y^  No 


Voltage  2V  /div 
Time  Scale  500nsec/div 
Inverted?  Yes  ,No/ 


Attenuation 


Gas  Type 

Notes:  12-1"  honeycomb 
(6  coarse  + 6 fine) 

1 KHz  LPF 


Analyzed  Data 


Voltages 

! 

1 

P/ 

Ch. 

1 0.02V 

/div  i 

P7 

Ch. 

2 0.02V 

/ div 

P- 

D 

Ch, 

1 

. 3 0.02V  ?div 

T. 

Ch. 

4 0.05V 

/ div  ' 

PVC  Circulator  Experimental  Data 


21 


* ioom 


iOifi 


Date  12  July  1978 

Gun  Data 

1.  Upper  Trace 
Voltage lOOmV/div 
Time  Scale lOpsec/div 
Inverted? ■ Ye^  No 

2.  Lower  Trace 
Voltage  2^  _/div 

Time  Scale  500nsec/div 
Inverted?  Yes  No , 
Attenuation 


Voltages 

P,  Ch.  1 0.02V  /div 


Ch.  2 0.02V  /div 


Ch.  3 0.02V  /div 


Ch.  4 0.05V  /div 


Analyzed  Data: 


Time  Scale  5msec  /div 
Sustainer  Voltage  25 . 8kV 
Flow?  On  I Off: 


Gas  Type  n 

Notes:  12-1"  honeycomb 


(6  coarse  + 6 fine) 
1 KHz  LPF 


8 


PVC  Circulator  Ex-periaental  Data 


Upper  Trace 
Voltage  100m\ydiv 
Time  Scale  lOusec^div 


Voltage  2V  /div 
Time  Scale  SQOnsec/ div 


Inverted?  Yes  ^o. 


Flow 


Gas  Type 

Notes:  4-1"  honeycomb 
(2  coarse  + 2 fine) 
I KHz  LPF 


Analyzed  Data 


Upper  Trace 
Voltage lOOmV/dlv 
Time  Scale  lOusecy dlv 


Voltage  2V  /div 
Tiae  Scale  _500nsec/div 


0.02V  /div 


Gas  Type  ^ 

Notes:  4-1"  honevcomb 
(2  coarse  + 2 fine) 
1 KHz  LPF 


Analyzed  Data 


rif 

Date  14  July  1978 


Upper  Trace 
Voltage  lOOmV/div 
Time  Scale  lOuseo^div 
Inverted?  Yes,  No 


Lower  Trace 

Voltage  2V  /div 

Time  Scale  500nsec/div 


Attenuation 


Flow 


Gas  Type 

Notes:  4-1"  honevcomb 
all  small  (fine)  1 KHz 
LPF 


PVC  Circulator  Experimental  Data 


Gun  Data 
Upper  Trace 
Voltage  lOOmV/div 


Voltage  2V  /dlv 
Time  Scale  500nsec/div 


Flow 


Notes:  4-1''  honeycomb 
all  small  (fine)  1 KHz 
LPF 


» , 

.f4  j 

PVC  Circulator  Experimental  Data 
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Date  14  July  1978 

Gun  Data 
Upper  Trace 
Voltage  lOOinV/div 
Time  Scale  lOjjseo'div 
Inverted?  No 

Lower  Trace 
Voltage  2V  /div 
Time  Scale  500nsec/dlv 
Inverted?  Yes 
Attenuation 


' . I\  l\  , ^ /l/u./ 


p, 

Voltages 

Ch.  1 0.02V  /div  1 

4 

p 

Cn.  2 0.02V  /div 

D 

V, 

Ch.  3 0.02V/div 

4 

Ch.  4 0.02V  /div 

Time  Scale  5msec  /div 

Sustainer  Voltage  25 . 8kV 

Flow?  On  Off 

Gas  Type  N ^ 

Notes:  4-1"  honeycomb 
1 KHz  LPF  small  (fine) 


Analvzed  Data: 


4 • K\'\:  N • 5 


E = 67.6 


PVC  Circulator  Experimental  Data 


mA 

r ' 

■ 

M 

j 

i 

; 

«) 

; 

j 

■1 

( 

! 

- 

k 


y , , , 

'J  A,  jlv  pA 

' ^1  ^'V  \lY^  '\ 
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Date  14  July  1978 

Gun  Data 
Upper  Trace 
Voltage  lOOmV/Qiv 
Time  Scale  lOusec/div 
Inverted?  No 

Lower  Trace 
Voltage  2V  /dlv 
Time  Scale  500nsec/div 
Inverted?  Yes 
Attenuation 


Voltages 

?,  Ch. 
4 

1 0 . 02V  / div 

P-  Ch. 

2 0.02V /div 

V Ch 

.3  0.  IV  /div 

Ch. 

4 0.02V /div 

Time  Scale  Smsec /div 

Sustainer  Voltage  25.8kV 

Flow? 

(^n  Off 

Gas  Tvpe  N . 

Notes : 

— z 

4-1"  honevcomb 

1 KHz  LPF  s 

Analyzed  Data; 

3 . 4 • ,\\\' 

E = 80.275 

1 

= RS^^Dc'^T  \«ARIA5LES 


X V = =-:  . 

XVC  . 
w £^:>  DF  I“.  D 
F = X F 
3Cii  = xrm/vL 
= C Z 1 = S ^ » S ; G / T j * c n 
A = b ' ; 1 - - c 1 1 

DX  = X/EE.' 

DIS=TD»DX 

H X = 2 . '*■  * r A 

C V=  CF  / G 

RF  = Rr/77;;.161 

^=SF«3Z.173? 

XST=(XXST/G/SR)/(A/yL) 

XD=XXD/XL 

T2=4*XTZ/yL 

AZ  = ’Z  . 

£S=XES/G/RR 

TI=A«XT!/xl 

t:=  i*xto/xl 

XT=X?//P0/R 
A = SiR‘'(G»R«xT) 

J= ( XU/ A ) 

at  = a»ati,--:e/xl 

C A = ( G - 1 . 0 ) / ( Z . ; * G ) 

Cr*  (G^l  *0)  / (:.«G*G) 
CC=2.Z/(o*1.0) 

C oGu'JOfiRy  CG\D’-TiO‘,  S (LEFT) 
d C 1 ( 1 ) = G C 1 1 
JC1  (Z)  = ‘'LAG 
d C 1 ( 3 ) = U 
3C1  {A)  = A/1 
3C1  (5)  ='^S 
sCI  (6) =XST 
SCI  ( 7 ) = X D 
SCI  (3) =XP 
SCI  (9) =XRC 
d C 1 ( 1 : ) = X T 
SCI  (1  I ) =X  F 
SCI  (1  2 ) = X F 

C SCU'JOAr.  X CCNUITIOA-G  (RIGhT) 
SC  Z ( 1 ) =E  C 2 1 
SCc (2) =Flag 
S C 2 ( 3 ) = I' 

3C2  (h)=a/a 
3C2  (5)=c5 
SCA  (6)=XST 

SC2  (7)  = x- 
3C2  C-)=XP 
3C2  (9)  = XR0 
3C2  (1 0 ) =aT 
3C2  ( in  =X  F 
SCZ  (1  2 ) = X'JF 

C LOA7  SOL'r.CA-5y  CONDITIONS 
1)0  1 5 J = 1 , J J 
3 0 1 *.  K = 1 , > 

R(K,1,J)=-C1(K) 


» 


232 


i 


p(k  .::.j)==c:(<) 

15  C 0 N T I >,  j = 

IMTIAl  conditions 

DC  Id  i = : , ic 

I VI  = 1_1 

P(1,I,1)=P(1,I-'1,1)*Dy 
1;  CCNTinc' 

3ic  cz)='^: 
ilC  (.2)=  I 
die  (4)=A/A 
3IC  (5)=S3 
3 I C (t ) =X  ST 
SIC  (7) =XD 
SIC  (8)=XP 
die  C > ) - X n 0 
SIC  ( 1 •: ) = X T 

ric  (n)  = xc 

SIC  (-!;)=  X N P 

LOAD  initial  conditions 
DC  17  I=Z,  IC 
DC  16  K = Z , « 

P ( K , I , 1 ) = = I C ( X 

16  CON^INwS 

17  CCN'^INLE 

CAVIT''  HSATING  (L'^^'PED  ATjAlYSIS) 

D 1 = °I C ( ’ ) 

3 1 = ■■  I C ( ) 

T1 ="I C ( 1 0 ) 

;.  = ( IN  / C 1)  * (1  .0/3i  . 1 73  ' ) 

DS  = '1/-'1 
T Z = 0 / C ♦ T 1 
PZ=D1’K»TZ 
AZ=SQPT(G*A*TZ)/A 

SZ=(Z.C/<G-1  .0))»ALOG(AZ)-(1  .0/3)*ALOG(pZ/£IC(5))*S1 

call  XPPES(PZ,bIC(2),AZ,3IC(4),G,=R£S) 

XA=1.04((G+1.C)/(G-1.0))*PRES 

Xd=(G+1.'J)/C'G-1.o)  + PRES 

0'^N‘^  = XA/X3 

T£v,  p=oscs/5£f,s 
S?EEO  = SORT(TEVIP) 

S‘^OC<  »»AVE 

S » ( 1 ) = X / Z . 0 
Sw(2)==IC(Z) 

Si»(3)  = S3kT(CA  + C5*PRES) 
Sw(A)=CC»(Sw(3)-1.C/S4(3))*3IC(3) 

S«(!)=£IC  (3) 

S-(5)=PPES»3IC(2) 

Sw(7)=bIC(s) 

S*(i)=DENS*BIC(T) 

S « ( P ) = S I C ( 'f ) 

S « ( 1 0 ) = T £ ■•’  D * E I C ( 1 C ) 

S /.  ( 1 1 ) = £ I C ( 1 0) 

S«(''Z)  = SPEE0*3IC(A) 

S W ( 1 3 ) = ? I C ( A ) 

s;-'  = cp*alcgcte'‘p)-ar*alc.'(p.E£S) 

:0(l4)=Sh/G/AP‘3iC(5) 


( P R £ S ) 
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f 

I 

i 


I 


f 

A. 


i. 


S*(1S)=-IC(5) 

SL(1)=S4(1)-DIS 

s p ( 1)  = s (1 ) + D I s 

£1  = 3L ( 1) 

Z0=  SP  ( 1 ) 

DC  11  = 

SL(U)=S<.(I<) 

SP(U)=S^(I<) 

32  CO.^TI'JU? 

S L ( 3 ) = - S * f 3 ) 

SL(C)=rIC(3)-CC»(S«(3)-1.0/S»(3)) 

C CONTACT  SuR  FACE 

?i2=PR£S*EIC  (2) 

CSl.(1)  = SL(1) 

CSL (2)=SL(2) 

C S L ( R ) = - 1 . J 

CALL  CCNTC  CSlCR)  , ?Z2  , £ICC;)  , CSL(3)  ) 
C S R ( 1 ) = S « ( 1 ) 

CSS  (2)=SR(^) 

CSS (4)  = *i . : 

CALL  CC'.TC  CS=(»)  , P2Z  , cIC(c)  , CSR<7)  ) 
-R  I T£  ( 6 , 2?’^  ) 


l^-i  FCR ’-'AT  ( 1 hi  ) 
wSIT£{6,iOC) 


3 J 0 

FCS-‘AT( 

: X , ' L 

CCA 

tion 

* » ' ^ f 

• T 

£ 

t i 

? - 

X 

1 f,« 
t 

A C H * , 

lOx,  ’ 

1 ' 

” t ' , U'  X , 

' PI ' 

,9X,  ' 

SO 

2 * 

f 

Ox  , 

1 

SOI 

' ) 

«SI Tt (£ 

,301) 

301 

F C S ■'  A T ( 1 4 X , ' 

▼ 1 

1 _ 

, 1 Ox 

, 'T1  ' 

,1 

0 X 

t 

’ A2 

1 

,10 

X , • A1 

■ , 10X 

P R I T £ ( C 

,10?) 

S L 

-<SI  T£  (6 

, lOv) 

s s 

1 0'^ 

F C R •'  A T ( ( 1 X , • 

S A = 

' ,2X 

, 9 ( 2 X 

, E 

1 0 

• 

A)  , 

L. 

, • 

VAIN' 

) / ) 

«SI T£  ( 6 

,2C1  ) 

cs 

L 

-RI TE (t 

, 201  ) 

cs 

201 

FCR''at(2x,  *1 

NT£ 

RFAC 

£ ' ,5X 

,^C2 

A 

, El 

0 

.4) 

) 

C SET  UP  CAVITY  CONDITIONS 


DC 

33  I 

If  = 

1 

, 1 1 

hPX 

= p(1 

? I 

< 

,1 ) 

X.  Y = 

.-x 

I F ( 

PhX  . 

“ “ 

• 

SL(1).AN0.hHX.LE.SS(1)) 

I - ( 

•<K) 

7 t 

t 

23,34 

° (4 

,lx  , 

1 ) 

= 

a2 

P ( 5 

, I Y , 

1 ) 

S2 

p ( i 

.I'~  , 

1 ) 

= 

p2 

P ( 1 , I K , 1)  =T  2 
33  continue 
C SOLUTION 

IS=  IS£0/2 
I*  = IS  + 1 
DC  13  J = 

DO  12  I : = 1 , I 
i = i 

if(I2,je.i-.)  i = i: 

DC  10  <=1,Y 
< 1 < <) =p (< , I , j ) 

IS2  = I-Z 
x2(<)=‘'(K,ID^,J) 
1c  C '■  N ■ I N u E 
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f 


CALL  f I : ( , X 1 , X 2 , 3 , S L , A R ) 

DO  "I  < = 1 , ' 

i~i  = ;*i 

j~i  = j -1 
=(<tl,j5=X1(<) 

= (n  .:'=2,j'=x2(k) 

= ((<,:'i,j  = i)  = x:(K) 

:i  :o\Ti\tE 
' CCNTI\;.E 
CON  TI \L- 

F(2,II,JJ)=PCZ,IC,JJ) 

C z'-c  S CLOT  I ON 

C PAIM  COT  EFECI-L  5ESJLTS 

c ^fintcut  locations 

V ■»  = E I ♦ X ; « 
i/?-El*XVz 

V C = E I - X V C 

V'.'  = \ : 5 * d c : 1 
v“=  c^i 

C4LL  =lTC  vA  ) 

CALL  Vj  ) 

CALL  P4.T(  VC  ) 

CALL  A-LTC  Vv  ) 

call  FL'f  ( £ 1 ) 

CALL  Fu^C  SVCD) 

CALL  =lT ( EC  ) 
call  PlT(  Vn  ) 

=I=£I-:. 0*013 
Fl=  EC*2  .v:*D  I S 
Ir'C=I.LT.0Cl1)  °I=3C11 
I A ( Di. CT .S C2 1 ) Pc  = 5C2l 
i;A  = ?:-x:N 
5 CONTINUE 

0 A = 0 A * X IN 

CALL  FLT(  OA  ) 

IFCDA.LE. PE)  £0  TO  7 
C PEINTCL’ 

-,FIT£(t,1) 

1 rCR''AT(1r.  1 ,6x.  ' AR9A'' 

OC  20  J = 1 , J J 
DO  1 9 1-1,11 

\FiTc(c,2)  I , J , (? (K , I , J ) , < = 1 , ") 

2 F0R'AT(2C2x,l3),2(2X,E9.A),2X,t:1u.A,i(2x, 

19  CONTINUE 

20  continue 

END 


C.3) ,2X,FA.1) 


su 

rout: 

c 

RADIO 

3 

( 

r. 

» X 

t Y 

* 

, ld  ) 

A T 

V 

I 0 

I. 

X ( 

. Y 

( 

M 

) 

f 2 

( , 

1 

n - 

J 

.A1 

£ X 

= 

V ( 1 ) 

T X 

= 

X (Z  > 

E Y 

= 

Y ( 1 ) 

TY 

= 

Y(Z) 

c 2 

= 

2(1) 

T 2 

= 

2(2  ) 

DA 

= 

S G R T ( 

( 

£Z 

.c 

X) 

•* 

* 

2 

+ 

(T 

2 - 

T X ) « * 2 ) 

D2 

= 

SORT  ( 

(tZ 

-E 

Y ) 

2 

♦ 

( 

▼ - 

-TY ) ««  Z ) 

I R 

c 

D A . 

L 

r 

• 

} 

r* 

= 1 

I 

( 

Dr  • 

L 

« 

R 

) 

L 

u' 

= 1 

I R 

( 

L C/  ) t 

t 

1 

•V 

T 

TEC:. 

J 

) 

R 

t V 

X 1 

T 

y 

? 

: Y 

, T 

Y , 

E Z , T 2 

C 0 N • I U E 

^ -T'JkN 


> 


i 

ti 


i; 


3L':;SCUT:^'  SS5(\N,AA1,;iA£;,Ai\3) 

= ;Ki>tATER  -=i: 

:)  : ■••  E .'M  S I 0 A A 1 ( \ \ ) , A A £ ( \ , A A : ( \ \ ) 

D : j-js  :c?.  aahC'.)  ) 

AA3(i)=(AA1(3)-iAi(3))/:.C 
AA! (A)  = caai (A)>iA:(A)  )/:.o 
Aaa(3)=aa:(5) 

LL=  0 
LC  = 0 

101  C 0 T I >.  J E 
LL=LL*1 
L A y = 5 
LN-LL-L/AX 
IE(L.\)  1 Oi  , 1 03  , 1 05 
10!  C C N ■:■  I O'  u £ 

CAaL  cAO(^JfJl  AAT  ^AAcfAA^fAAA) 

CALL  EOLCOOfAAl jAAtiAA3fAA4*hA3) 

C TEST  ROUTINE 

call  pad:us(;<.n,aai,aa3,aa3,ld) 

lE(  LD  ioi#  C ) oO  TO  13^ 

TX  = CC 1 
11  = 0 

IFCaa'CaI.E-I.C.:)  Atl(3)=‘',  .ce-^ 
:F(AA3(‘.1.£(i.C.0)  AA3(A)  = 1.0c-S 
RV=(AAi(3)-HH3(3))/AA3(3) 
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] 

i 


4 


4 


^i=(A4Z(‘.)-"ln3(-))/AA3(-.) 

IF(AcS(Pv).3T.TX)  11=11+1 
lACAtiSCPAl.GT.TX)  11  = 11  + 1 
I F ( : I ) 1j  2 , 1 0 2 , ^ 0 1 
12  2 C 0 N P I N L F. 

GO  TO  1'^ 

ns  /•PIT£(c;,no)  ■rx,=V,RA,AA3(1),Ai3(3),L’'A'( 

1J;;  FCR'’AT(1x,S(2x,E10.A),3X,  •L''tX='  ,I5,2X,’SS£’) 

« = ! TF  (6 . 1 ) ( A A"!  ( I •■  ) , I'^  = 1 . .-I) 
w = I T £ ( t , ; ) ( A A 2 ( : , n = 1 1 ) 

1 F0fir'AT(1X,12(2X,£'.3),ZX,'AA1') 

2 FCi<-'AT(1x,12(2x,£i«3),2x,'AA2') 

lOA  continue 

call  ppp(\n,aa1,aa3) 

AA3  (1  2 ) =ll 
R ETURN 
END 


SLS^CJTInE  3EC(N\,AA1  ,Aa2,AA3,AA-.) 

C:'"''CN'  /CONST/  XOfXF 

jl'  -N3ION  AAl  (NN)  ,AA2(^';)  jAA3  CN‘,  ) *AAA(NN) 

Rl3  = (AA'l(3)  + AAl(‘.)  + AA3(3)+AAi(L))/2.C 
S1a=1»'w/R1a 

R23=(AA2(S)-aa2(u)+aa3(3)-aa3(A))/2.C 

S23=1 . :/Ri3 

313=AA1  (<;)-S13»Aa1  (1  ) 

323=AA2(2)-S23»aa2{1) 

A A 3 ( 1)  = ( t;  2 3 - l;  1 3 ) / ( S 1 3 - s 2 3 ) 
aa5(2)=S13«aa3(1)+E13 

SI  2 = ( AA  1 ( 2)-- AA2  ( 2)  ) / ( A A1  ( 1 ) -AAZ  ( 1 n 
31Z=AAU2)-312  + AA1(1) 

R3A=(AA7(3)+AA^(i))/2.0 
S3a=1 . v/r3a 
53A=AA3(2)-SiA*AA3(1) 

AAL  (1)  = (51  2-£:n  / (S3L-S1  2) 
aA4(2)=S3a*aaa(1)+£34 
= F=(AA2(1)-AAL(1))/(AA2(1)-AA''(1)) 

AAL(5)  = (1.0-?n*MA2(5)+PF*AAl(5) 

call  PEAT(AA3(mAA3(2),AA3(3),AA3(L),AA3(5),A'^3(S)) 
CALL  H£AT(AAa(1),AA^(2),AAL(2),AA4(4),AA-(5),AAA(6)) 
A A 2 ( 7 ) = X 0 
AA3  Cl  1 )=XF 

A A 4 ( 7 ) = X 0 

RETURN 

END 
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bvjc  "OUTIi't^  S'vL^***'**^^^ 

c?'''c\  /DD,/  3,CP,:v,-f,«,rR,j,A,cA,c  = ,cc,rix,i;,:£S':),'',xL 

D I .••  r \ S I r - A 1 ( , A A z ( N . M A i ( \ , A A 4 ( •,  M ) , rt  h 3 ( \ ‘,  ) 

D 3 1C  I = 1 t \\ 
rtH5(:)=^A3(:) 

C C f J T I \ L E 

AU=((AA:(1)-AA4(1))/(AA:(1)-AAlCl)))»(AA1(i)-AA:(3)1+AA2(:') 

su=(CAM:(:)-AA,(:))/(AA:(:)-AAi(i))).(AAi(E)-AAr(!))*AA3(3) 
AA4(3)  = 3,:»(=U  + ‘io) 

S4=  aaA  C n 

DSw3=(AS‘.(£)-^h!(;))/2.C 

F 1 = ( : . 0 / ( : - 1 . c ) ) * A A 1 ( 4 ) * A A 1 ( ; ) 

:j2=(2.C/(G-1.C))*AA?(-)-AA‘(3) 

A13  = (AA1(4)-^  rH3(‘.n/2.C 
A23  = <AA2(‘.)+r.4  3(-*))/Z.Q 
j13=(AA1(3)+hh3(3))/Z.O 
UZ3  = ( A aZ-  (3)  -ahE  ( 3 ) ) /Z  .0 
CS1  3=  (r.  A 1 (;)  -4H3  (E)  )/  2 . C 

DS  2 3= ( ^ A_ ( c ) +hm3 ( ‘ ) ) / ; . r 

F13=(AAl(11)-r-3(11))/Z.: 

FZ3  = (AA2C'!11*rH3(i'!))/2.c 
Olj  = (iAl(^)*r--:("))/Z.. 


DZ3  = ('.  a:(’)*f-^3(3))/Z.O 

3:13=(aai  (3)»*z*rtH3(?)*,3)/2.  J 
CiDZT=(rAZ(7)»»Z--'H3(7)*»2)/2.:' 

3A  3i  = (AA3(7)*»2-AA1(7),,2)/3;,13/(AA3(1)-AA1(1)) 
•3a32=(AA3(7)**2-aaZ(7).'.Z)/D333/(aa3(1)-aa2(-!)) 

T1  = aai  ( 7 ) 

TZ  = AA;  (2  ) 

T3  = ^^h3  (2  ) 

T4=  (2  ) 

31  = “A1  (') 

sz=aa: (5 ) 

'ART  o C X E A M N C E G 'J  A T I 0 \ S 

S3=S4+0S43»(T3-T4) 

P3==1*a13*(S3-S1) 
i *(  (;-1.:')*A13*CS13 

I - A13.Ul3,r,  A7-] 

! - '1  3*U  1 3*  AcS  (U1  3 ) /Z  . C/pl  3 )’<CT3-T1) 

;.3=GZ  + a;3.(s3-32) 

I *(  (>.--1.:)»AZ3»0S23 

' - aZ3*lIZ3*3AZZ 

''Z3*'JZ3*Aj:S(ijZ3)/Z.C/;-Z3  )*(T3-TZ) 

lO  cC\/£A\I‘Jb  EGUATIC^S 

AA3C3)=(p:-Q3)/2.0 
AA3(4)=(g-1.C)*(?3*G3)/A.C 
AAi  (5  ) = 33 
R E T U R \ 

E VO 

SL'EFOUTI:.  E ^PP('.  \ ,AA1,aa3) 

CO'“'OV  /OOj/  G,C  = tCV,'’F,fi,R!j,u,A,:A,C?,CC.iX,AZ,Z£RC,F,xi. 
0 I % S : 1 \ A A 1 ( \ , A A 3 ( r.  \ ) 

C 1 = ( Z . C / C 3 - 1 . ) ) • A L : G ( A A 3 ( - ) / A A 1 ( ^ ) 

C 2 = G* ( A A 3 ( 5 ) -A  J 1 ( 5 ) ) 

aa3(7)=aai(;;.exp(ci-c:) 

AAA(i:)=A*l«.a3(‘.)-AA3(4)/G/A 


3 A A A '>'  F.  T -.  A "sir 
PAKi:-F'!’En  .‘,=  15 

'AI,'  "'jF  :0r.  AA  1 C \X  ) . AAi  ( .'..x  ) , ,,A  j ( ',X  ) 

D ; ■-  F \ 5 I 0 -i  A ( V ) 

D : F \ F I : r,  5 « L ( \ ) , S A " ( ) 

IF(aa1  C)  .lT.C.J))  a^1(2)=aa2(2; 

AAc.(i)=AKl(i) 

a.a2(3)  = (aa1(;)^aa,:(3))/2.'1 

AA3(A)  = (MAl(,*)-rAA;(A))/2.3 

A A « ( J ) = A A 3 ( 3 ) 

N '1  = :? 

call  C h X a C X , a a 1 , a a 2 , a a 3 , a a 4 , S ,»  P , ) 

1 J A C 0 N T 1 \ L F 

v V = 

call  CF:''L(NX,AA1  , aa2,aa3,aa4,Sv>l. '■••'. ) 

rFC’’”^)  iiC',ii;,i:^ 

110  CCNTimje 

call  s c ’ , X , a a 1 , a 2 , a a 5 ) 

1 j 7 cc,A*:‘^" 

P F T U A \ 


SU5  -OUT  : ,F  s .A  , F-  , C ) 

p i 3 i V' : r A N ; = » , n a = i 

C C 'V  C / £ L L / C S L ( M ) , C F F ( r.  z ) , ■:  L ( •-  '•  ) , s A ( N A ) 

a (;,).  = { ‘j  ),  c ( x ) 

.1  “ 

C .A  L L C C S ( , A , A , c , C 3 L , \ ) 

'■  1 F ( 1 OF  , v.A  , 1 ^7 

1 j F C 0 r.  ■ I \ L F 
'A  •■’  = 0 

call  c c " ( X, , a , f , c , c s f , r-0 

I F ( ) 110,110,1^7 

110  C 0 fj  T I ' L F 

call  5SS(N,4,3,C) 

10  7 C C T I -j  j 2 
E T U « 

F £ 


sustc'jtinf  xA>?is(=4,?i,Ai.,Ai,;,F'iFSi 

X X = 0 . c C 1 

PFLS  = 1 .''-XX 

£X  = — / CG*1  *0) 

PRFS  = = .-£3*XX 

XA=(0-1  .J)»CA1/A,*)»(PAFS-1.C) 
XS=SiFT(;.j»G) 

XC=FGRT(2.£».^*(0*1.0>*(P.R£S-1...)) 

pc  = Pi*j.'cc3*(  (1 . :-<a/x:/xc5  •♦lx) 

T F = 0 . 0 0 5 

IF(Y.GT.T'^)  go  to  1 
A F TUR\ 


SUS'^Oi.'TI.N;  RA*i(N''J,j  = 1,d  = 2,P‘’,XX) 

C ••'Of.  / DO  “J/  G , C?  , C V , - F , ^ , Rf?  , J , A , c A , c = , C 
D:  ini  (';N)  ,i-2  ( r.  N ) 

X i = 1 , L ♦ ( ( -^  + 1 . : ) / ( - 1 . C ) ) » p .A 
x:  = (,;*i . J 1 / ( c-1 . j ) - 
iii (1 ) = = ;i  ( 1 ) 
i r-  Z ( 2 1 = ■'  i 1 ( 2 ) 

-•  :•  Z ( c ) = s i 1 ( 6 ) 

.:  = z ( 7 ) = ■:  s 1 ( 7 ) 

i;-Z(c)=rR*c3i(;) 

3 = Z(^)=:-31(9)*(XA/X  = ) 
i = z (1CO=£3l  (1C)*PP*(X':/XA) 

3e: (11 ) =0  = 1 (11) 

\/1  = SafiT(CA  + C3*-PP) 

VZ=Vl*(E5l(9)/e-2(?)) 

3 = 2 (3)=U-XX*  (V1--/Z) 
33Z{a)=SdPT(G»-.-o32(1.:))/A 
i==C?*ALv;G(BP2(1J)/  = 5l(1C))-SP»ALCG(P=) 

= iZ(D)=  = ii/i/PR-3j1(') 

P r T I S \ 


S ij  s P 0 L T I iN  E S I ( \ ^^  » < :«  » Z ) 
pa^AYETEP  NZ-**f  \ = 15 
Ccwos  /CC.'.ST/  XD.XF 

c : M C N /DLL/  C 5 L ( ^.■  : ) f C S p ( N 2 ) , S L ( f< ) . s K ( \ ) 

D : E N E I 0 '■  2 ( : A ) 

: = . L T . : . D ) : ( ■ ) = s L ( A ) 

:f(x\  .gt.  o.c  ) :(:)=s?(A) 

- (A )=3l(1 2) 

2 ( i ) = SL ( 1 A) 

2 ( 3 ) = 0 . 0 

Z ( 7 ) = XD 
2 (5 )=SL(;) 

2 (9 )=SL (o) 

2 ( 1 ■ ) = i L ( 1 Z ) 

: ( 1 “' ) = X F 

:(iz)=-''.c 

.3  E T U K L 

" A f\ 


SUiPOUTI.^E  Ch<L(','.  ,X,Y,Z,A=,Ev,:c) 

P A fi  A M £ T E 'A  = 1 2 , 'i  = 1 ; 

CO:--'-CA  /i/  3IC('1) 
common  /C0‘,ST/  XD,XP 

CO'"  'ON  /ODD/  G,CP,CV,PF,R,^q,U,A,CA,C3,C 
D I M E N S I 0 N X ( ',  N ) , Y ( rA  ) , 2 ( N \ ) , A 3 ( N \ ) 

D : E ,N  C I Z N o v»  ( N ),  X =(''),  X Q (•••),  Y ?(  O 
F.'A'’AT(=X,  'S*  LEF”  ,5X,  '£='  , F12,5,5X,  'TO 


X N = - 1 . . 

p - = S w ( c ) / ' 1 C ( r i 

3 L = 1 . / R S L 
3L=X(Z)-SL*X(1) 

SSk=Y(3)-Y(u) 

3 -.  = 1 . 0 / = 3 ~ 

= ? = v(r)-s-,Y  (1  ) 

PE= (EL-'h ) / ( S^-SL) 

?■"=  3L»F'"  + ?l 
P 3 S =L  + 5’*  ( 3 ) 
ss=i.:/P3s 
_'S=S»<(i)-S5»Sx('!) 

Y° ( 1) = (5R-6S ) / ( SS-SR) 

YP(2)  = SS«YP(1)i-3S 
XP(1)  = (3L-i:S)/(SS-3L) 

XF(Z)=SS>''XP(1)*?S 

IF(  Y^C)  .3£.  P;  .A^C.  YC(1)  .lE.  Y(1)  ) 13=10 

I  = ( X P ( 1 ) , 3 E . X (1  ) . A D . X p ( 1 ) , u . PE  ) I L = 1 : 0 


I F ( 

IL 

• c • 

I Z 

• K 

V D . 

* H • c ♦ 

1 1 

) 3C 

t:  1 

A 

I F ( 

IL 

• d '>  • 

1 Z 

• A 

• J • 

i.  K • G 1 • 

I z 

TO 

Pv. 

I F ( 

IL 

. UT  . 

T 

A — 

. A 

D . 

: r.  . G T . 

^ u 

) -3 

TO 

" 0 

I F ( 

I L 

• 0 T • 

» 

A Z. 

• 

AND  . 

I r.  . E ^ 

r ^ 
• 1 Z. 

) G 

T p 

9 C 

7J  CO\TI\wE 
Z ( 1 ) = PE 
Z (i  )=PT 
DO  71  I =:  , 1 

: ( i)  = - 1 c ( n 
M c C N ^ 1 1,  o £ 

2 31  F0R''*AT(2x,*:i-<l',A(2x,£10.a),3(2x,I^)  ) 

E FGR''AT(2(Zx,-F:.i).2x,'-10.A,i(2x,c-.3),2X,F<-.1i 

A?ITt(c,:01)  YP(1),YP(2),XP(1)  ,XP(Z),l:,IL,  IR 

-R 1 TE (£  , i ) Z 
30  TC  IOC 

3 J CONTINUE 

Z (1  )=Pc 

Z (2  ) = FT 

CALL  £2(NN,XN,Z) 

«RITECc,2C1)  vp(l),YP(2),XP(1),XP(:),i:,lL,IR 
*R I TE ( £ , 5 ) Z 
oO  YO  1Cu 
P 0 DC  R 1 I = 3 , 
x?(  :)  = x (I) 

PI  CCNTINuE 

call  M£AT(X°(1),XP(Z),X3(3),XP(A),XP(E),XP(*!)  ) 

xp  ( ■’)  = X : 

X = ( 1 1 ) = X F 

xp(i2)=~:c(i:) 
call  R a N ( ';  N , X p , X » , P R , X M 
wPiTE(£,iC)  x3(i),xi:(;) 
call  3 l e ( n n , X , V , z ) 

I : = 9 3 

»fit£(c,2ci)  ''pn),YP(2),xp(i),x  = (2),:;,iL,:R 
*R:’E(:,5)  Z 
rc  TC  I'lc 

^ w ■«  1 • u 

F - T Ij  R N 
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S'-C^OjTlNt 

‘.=  1Z,  \ = 15 

cz-i -’ON  /a/  =:c(  '') 

:''--ON  /C0\ST/  x:,XF 

/ZDZ/  ^fCPiCvt  ’'■  i^»KCfOt^?CAfC^fCCt*^XjF„(2'"*^  -'f  ^fXu 

3 : '■■  FN3  I Dl,  X (%■•'<),  Y C \ ( .'iN  ),  A?  ( W ) 

3 1 3 N s - ( \ ) , X p ( •'• ) , Y 7 ( -O  , Y 3 ( '^  ) 


!■  tv 

I D= : 

T - 


••  A T ( 2 X , ’ S . 


!o-T','X,'E=',P12.- 


. X , 


I T .'V  - • 


: = • ,Fi2.5) 


I L= :: 


X ’m  = * 1 . ’J 


J - = 3 « ( A 1 / P i C C ;■  ) 


=SL=x(3)fX(A) 

SL=  1 . C/PSL 

bL=X(2)-3L*X(1) 

-iSR=Y(3)-Y(4) 

3 A = " . : / p s p 

;p  = Y(2)-3A»Y  (1 ) 

= ;=  (3l-3A) / ( 3R-Sl) 

oT  - 5l»PE ‘nL 
ASS  =3*3  A (3 ) 

3 f = 1 . 1 / P S S 


J 

c 

2 

) 

- 

SS 

■k 

S*  ( 

1 

5 

1 ) 

= 

( 

? 

- p 

S 5 / ( 

S 

-37  ) 

2) 

= 

c 

s 

» 

V p 

C 

1 5 ’ 

r 

■S 

1 ) 

= 

( 

? 

L 

s 

5 / ( 

r 

5 

-SL) 

25 

= 

S 

c 

* 

XP 

( 

1 5 ♦ 

•- 

3 

X 

( 1 

5 

• 

J 

E . 

X 

( 

1 5 . ” 

XPd  5 .LZ.  P£  ) IL=1  C 

Y 

■3 

( 

A 

1 

) 

• 

o 

1 • 

c 

E 

. ANS  . 

, Yo(i)  .lp.  y(i)  5 :c=7or 

:p(  il  .lS.  :: 
I p ( IL  . . :: 
I p ( I L . G ’ . I z 


IP  . E . . I Z ) u C 7 ; 

:.A  .EL.  IZ  ) v:0  TC 

IE  . G T . I Z ) 3 0 


>0  t; 


IFC  xL  .iS.  ^ I .A'JD.  IR  .jT.  i».  ) oC  TO  "G 
:C\TI*J'JE 
: ( 1 ) = p£ 

Z ( 2 ) = PT 
5 0 71  1 = 3,-' 

; ( I ) = ; I c ( I ) 

c 0 \ T 1 \ u ' 

GO  TO  1 'C 
C 0 3 T : u E 

Z (1  ) = p z 

Z (2 )=PT 

CALL  SZ  ( \N  , XN  , Z ) 

GO  TO  ICC 
DC  91  I=3,t 
YP ( : ) = Y ( I ) 

c •:  *.  t I GO  z 

CALL  HEAT(Y=(1),Y  = (2).YP(3),YP(A),YD(5),YP('')  ) 

Y P ( 7 ) = X D 

Y P ( Y 1 ) = Y f 

YP  ( 12)=?ic  (1 2) 

■AuL  PA’.  (N\,''0,v^,pr,y.  ) 

. A : T . ( i , 3 c ) V . Y 1 ( : ) 

-“LL  SwrC 


PE  Ti. 


3 1 '• 
I’  wE 


J 


2^2 


1 oL-’CUTi'.E  c c s ( ■%  X , Y , : , ► hCE , i^;) 

' i K "i t.  I r.  t ~ ^ 

P A r ; >'.  £ T r ,<  M X = 1 Z 

i ’'■•c'.  /CO'.ST/  yd,af 

: : E ?i  5 1 :•  M X ( ■■ ) , Y ( v. ) , ; c • ) 

j 3 I F A C E ( '.  Z ) , A E ( r;  X ) , Y Y C N X ) 

i : •!  E I x x c % x ) 

’ < u X , z 

xXL=X(1)-'ACE(1) 


I F ( XXL. 

3 T . X H X ) 

G J 

TO  : 

J 

YYl^FAC 

F ( 1 ) - Y ( 1) 

I F ( VYL  . 

G T . X H X ) 

GO 

TO  2 

c 

I F ( X ( 1 ) 

. c D . F A C 

; Cl ) 

.AND 

• 

X (2) 

.E3«faC£(2)) 

G3  TO  2'FO 

I F ( Y ( 1 ) 

. £ 2 . F AC 

£ ( 1 ) 

. A \ 0 

• 

Y ( 2 ) 

. c:  >•  . F A C E ( Z ) ) 

A y n.  * 

V f V C - V 

R C S =F  A C 

£ (3  ) 

S C S = 1 . 

/FC5 

J C S = F A c 

F ( 2 ) -SC 

S ♦ F A 

C E C 1 

) 

Z ( 3 ) = ( A 

( 3 ) -Y  ( 3 

) w: 

• 

z(--;  = (x(-)»Y(i))/:.’: 

«-(!)=.(:) 

call  E £ 0 ( ■'••  , X , Y , Z , a l.  ) 

= L=  (Z.:/(:--i.o))*x(A)*x(3) 

',  ? = ( z . V / ( c - 1 . 0 ) ) • Y ( A ) - Y ( : ) 

SL=X(;  ) 

3~  = Y(5  ) 

C al  =0 . Z 5 » ( u-1 . j) • ( SL-SE ) 
''.L=(?L»'lK)*TA',h(CAL)+:!r; 

PF=(j='-3iL)*°L 
VL=(PL-'L)/2.0 
V~=(r'F-'3R)/2»0 
CL=0.Z:»(o-1  .0)*('^L*»L) 

: = = 25*(->1  .0)*(Fk  + 3F) 

Y = C.5»(VL  + V'R) 

“IGht  leG  only 

522=(Z(Z)-Y(Z))/(Z(1)-YC1)) 

3Z3=Y (Z)-S23*Y  (1  ) 

E=(=CS-E23)/(S:3-3CS) 

T = 3 2 3 ’ £ + b 2 3 

I ' ( E . 3 c . Z ( 1 ) . A fj  D . E . L £ . Y ( 1 ) ) GO  TO  131 
o 3 TO  1 L 2 
101  C 0 \ I \ L F 

As  FOR  vat ( ZX , 2X , FI  2 , A)  , £ X , ’ C CS  l') 

9V  FOR  vat (2X , 0 ( ZX  , FI  2 . A ) , 5 X , ' C C S 2') 

, ri)  X(3),X(A),Y(Z),y(a),SL,SR 

*"i'’£(6tYA)  '*LiFR,VL«VR  tVtCAL 
I ';  = 1 : 1 

Y Y ( 1 ) = E 
YY ( 2) =T 

Y Y ( F ) = V 
YY ( A) =CL 

Y Y ( 5 ) = X ( 5 ) 

CALL  ^-;AT(YY('!),YY(Z),YY('),YV(L),YY(£),YY(t)) 

YY  ( F)  =;^5 

Y Y ( 1 1 ) = y F 

CALL  C:S('',<,YY,Z) 

F 1 C £ ( 1 ) = L 
F A c F.  ( : ) = T 
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-.  = I ( t , 1 ) P AC  : 

FCS"A’’(2x,  ’ :\T£--FACE  ’ , 

3 0 TO  :''C 
C 0 N T 1 >J  L £ 

FT  l£G  ^r,LY 
s u = ( 2 c)  - Xp(  m / ( ; ( “: ) - A ( 1 ) ) 

3'!c;=x(c)-S12’'XC1) 

E=(-CS--12)/(Si:-SC') 

T=S 1Z»£*=1 2 

I F ( - . h c. A ( 1 ) . A \ D . £ . L £ . : ( 1 ) ) O 0 Tv  10  3 

3 0 TO  Z'^O 

co\ti:.l- 

-.«ITE(C;,t3)  X(3),y(A),Y(3),Y(A),3L,SS 
«^IT£(5,9i})  C.L  , Pfi  , VL  , VS  , V , C Al 
I S = 1 G 3 

XX ( 1 ) =E 
X X ( 2) =T 

X X ( ' ) = . 

xx(‘.)  = £~ 

X X ( =:  ) = Y ( 3 ) 

call  ‘^iAT(xX(1),XX(Z).XX(J),,xx(4),XX(5),XX(t;) 
<x('’)  = x'- 

X X ( "•  ) = Y ( V ) 

XX  ( I 1 ) = X F 

call  s s 5 ( ' , X X , y , : ) 

FAC  £(1)=£ 
faC'^C2)  = T 
“AC£(Z)=V 
vP1TE(l,1)  face 
C C S ' ILL- 
FETUS'; 

£N0 


Sue  pcu'ti.me  co''(n\,ci  ,c;,c3) 

0 I T EN  s I 0 . Cl  ( A Y ) , C Z ( L 'j ) , C 3 ( L \ ) 
p= ( CZ ( 1 ) -Cl ( 1 ) ) / ( C3 ( 1 ) -Cl ( 1 ) ) 

3 0 10  I = 3 , •<  N> 

C:(I)  = p*C3(I)*(1.0-F)-.C1(I) 
CCNTillE 
F F.  T „ R Y 
E '<  3 


SUrPOUTIYr  C0NTCX'J,FZ,F1,Yo) 

COTivOL  /3D0/  G,CP,CV.RF,?,HR,U,A,CA,CS,CC,hX,A 
PRE  S=P2/P1 

IF (=RE3.LT.1  .0)  PPEE  = 1 .C/PRES 
YA=cRES-1.0 
Y E = 2 . G / ^ 

YC=(G+1  .0)*PRES 
Y3=  3-1  . C 

Y'  = ta*SCRT(YE/ (YC*YD1  ) 

I A ( X . L ^ . 0 . 0 ) Y G = U - Y F 
I A ( . G T . c . 0 ) Y G = U + Y F 


D I S : 0.\  4 'i  T ( 1 ■* , 1 2 ) , \ N ( 1 i ) , 
CO’-V'C’-J  /VA«/  "01  G,  TOZo,  TDto 

> ^ ^ ! -w  A . -^40  T^ 


r-6,f  r ' ^ f r -«*f  rri_,^  r wf  ' -wt  ' 'f  l•■•  ? t I'T  r-isi  /, 

GA'lIG,  GA^;g,  GA.VIZG,  GA‘’4G,  GAKZG,  GAM6G,  GA.'V57G,  GAf'SG,  GAi^ 
GAI^ICG,  GA>niG,  TGI*'!,  TG,>'II,  TG^'Z,  TI*'A,  GI.'-'U,  GII'^'U,  G3''U, 
P'61, 

P^GII,  PSGZ,  =RA,  C^GI,  CP6II,  CPG3,  CPA,  T-'i,  ixil,  T:'!!!, 
Z I '^L'  , ZI I ■-'U,  Zi'^U  , Z'^U  , 

pRI,  PRII,  FRIII,  - ---  

‘ • rr-  '-TTT 


< pRI,  PRII,  FRIII,  ?==,  CPI,  CPU,  CFIII,  CP,  G'l,  GoII,  'GI 

1 G t , G I , G I I , GUI,  G , R c G I , 

L RZGii,  egg:,  Rca,  rei,  reii,  reiii,  re,  GFI,  GFII,  GFIII, 

c:'‘'''0.'. /\.'AF.5/  A F , f I , "I  I , F , :■  J I 

bJII,  GJIII,  IJ,  ZJI,  ZJII,  ZJIII,  ZJ,  H6I,  nGII,  t^GIII,  H 
1 Hi,  nil,  Hill,  H,  c:i,  CGII,  CGIII, 

CA,  C!,  CII,  cm,  C,  UI,  UII,  UIII,  U,  AGI,  »G:I,  A6III, 

1 TUM,  TUMI,  T UNI  II,  TUN, 

0 TO*I,  TO«II,  TO  *3,  TO,J,  EPSI,  EPSII,  EPS3,  =PSA,  ESSI,  FSS 

1 ECS3.  ESS.  «G. 


5<C5),  DSLCM,  D S I ( <•  ) , OALF(A),  DDP(4),  CCNV(16), 

rclI!*',  pli'^,  f3,  title(28),  op,  dpi,  DPII,  DPIII,  PPR,  P 
TAIF,  kHP,  TIG",  DKH(4),  ETIG,  ET02G,  ETOoG,  E^C^S,  FT1, 
£T2,  £T3,  tT4,  ET6,  ETa,  ETIG,  ET14,  ET16,  ETIc,  ET20,  ET 
ET0SG,cT7, 

EGPP,  C-A,  CNP(3),  GDI,  GDI  I,  ■- f' ? * t . 


G D I I I , 

-DA,  EVI'*i,  ?R“‘',  VLI",  ROM 


1 -DA,EVI'*i,?R“‘': 

RCA2,DAFAL(A),DSLL(A),A=‘(4) 

CC  y C N / V APD/-C,GCG,CP2,CFd,W3,C'=3, CPI, Pill, TUN3 
COf-''"ON  /I  VAR/  VTAV,  NCSSN,  NCS,  M,  KO,  NLI'*',  N 
I N5S,  N6PS,  JCPRO 


p ( A ) , N’  F U L L , 


SUb^Olj'T::.  ? CLTC  av  ) 
pafca;/  = rcR  IS  EG~1:u 
PiRi.V-IT'H  II  = IShu  + 1 
PifiAvgTSS  JJ=:; 

PAkA.'igTPS  •■'=12 
C n,"  ■'0.\  /P/  P('-,II,JJ) 

DIMENSION  A(v)  , CM  , C ( ■'  ) 

:;:=i . 

xR  I -"t  ( c , *.5  ^ ) 

A59  =CR-''AT(1h1) 

I •'  0 = 1 1 - 1 

DO  **  "j  j J=1fJJ 

5 ( 1 1 = X X 

:l=  0 
ix  = : 

DO  ii  1 ! =1  , 1 .‘iC 

=1*1 

:a(xx. GT.pci, I, j). A nd.xx.lt. PCI, :-’i,j))  il=: 

IP(A5SCM-P(1,I>jn.L'.ZZZ)  IX=I 
A 5 1 C 0 N T I U S 

I M I L ) A 5 : , 4 5 : , L 5 .! 

453  ILF=IL*" 

3(2)  = -5.5'(?(2,IL,J)*P(2,ILP.J)) 

DC  456  LX  = 1,.T 


-55 

452 
4 5 5 

457 

434 
45  3 

45: 


A(LX)=P(LX,IL,J) 

C (L  X) =P (LX , I L?  , J > 

C 0 \ T I ‘ . L'  A 

call  C G ' (’■'  . a , 3 1 C ) 

IMIX)  454,454,455 
DO  A 5 7 L X = 1 , •■> 

3(lX)=P(LX,IX,J) 

: C N T 1 N U 5 
C '' T 1 N L 3 

-=:'^£(c,453)  ?(1),2(2),3(3),S(5),?(9),3(10),Il,IX 

'>.3,2x,'TO=',p''i'.3,2x,’u=’,P‘^.3,2x,‘p  = 
FC.6,2x,’T=*,F4.5.4X,’IL=',I<*.:x,'iy  = 

continue 

k 3 T L'  N 
END 


FCR''AT(2X,'£  = ',F 

1 2x,  'r:  = ' , 


F9 
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I TE  (6 , 1 00  2 Z 5 TO  ;G 

FCRVATdhO,?/,  ’T&i&=',E'!5.T,3X,  'AFTER  SUBROUTINE 
D N P ( 2 ) = D fJ  P ( 1 ) 

«P:TE(t,i:01c.)DN?(2) 

FCK-'AT('!hO,3A,*C>\°(2)  = '£l2.6; 
t:g -tc;g 

TB5=TCtC- 

t5c=tc;g 

TTo  3 = T3:o 
J V = C 

T T — 

A i " «< 

CALL  GAEPCTIG,  F-„,  EA^l'-,  Z"!,  ;1,  G'-U) 

IF  (JCERO  .GE.  C) 

1 FIG  = R01*Tr:-/(.LR3175*G'’U) 

IF  C J C P R 0 . L T . C ) 

I R01  = .G?317--.PI'o*G''U/TIG 
^,3  = PC  1 *V  I » A ( 1) 

F'M=LG*lS'iRT('"IG/(GAy.  I6»G,-«'U))/(20.7‘'74*i=IG*A(1)) 

T01'^  = ’lS-(1.*F''1»r«>1»(GA.''Io-1.)/2.) 

•JRI'ECc.l'rc)  ROI  ,j''U,PIG,TIS 

FOR  ’'A  T ( -!nr  , 3 A f ’ '^ol  = ' , :i  5 . ’ , 5 X , ■ G,-''U  = ' , El  3 . 7 , : X , ' : 
I 5a,*'IG=',E15.7) 

Til  '■-  = -Oiu 
OC  3 ! = •!  , 1 A 
OC  A J = 1 , 1 : 

A v-  T ( : , J ) = 0 . 
o '■  T { I ) = ■'' . G 
T/I =. 5» (T2-T4) 

T-  I 1=  . 3»  (T2*T6> 

T’-'III  = .3*(T2-^T7) 

«I I I = *:  I 
T''=.5*(T3  + T1) 

; 1 = T 5 H 
Z2=~6G-TZ 


IF  ( Z 1 . L £ . 


•OR.  22  .L£.  y.)  GO  TO  11 


I ~ ( Z 1 .EG.  Z 2 ) GO  T C 12 

T3m:  = tvi-(;i-z2)/(DLO.':(z1)-DLCc(Z2)) 

GO  -^0  13 

11  T3iVI=.3*(T5G^T6G) 

GO  TC  1; 

12  T3'^I=.5»(T£--T£G) 

12  Z1='F10^-Tt 


T 

II 

• 

5 

» ( T5 

3-T£ 

G) 

z 

1 = 

■FI 

-Tt 

z 

i = 

^1 

i 

r 

-T  2 

I 

C 

(Z 

1 

t L E • 

<J  0 

• C ^ 'm. 

I 

c 

(Z 

1 

• C iRi  • 

Z2) 

GC  TO  15 

TG>;iI  = T-II*(Z1-Z2)/(DLOG(Zl)-CLOG(Z2)) 

GO  TO  16 

1 - T G 1 1 = . ■ « ( T 1 C C-  * T 1 1 G ) 

GC  •'C  16 

15  TG''^  i:  = . 5 » (T1  CG^TI  1 G) 

16  Z1 = T1 -TAl 
Z2=T3-T42 

IF  (zi  .le.  g.  .or.  z2  .le.  l.)  go  to  17 

1=  (Z1  .EG.  22)  GO  TO  1o 

T’-'A  =T-'  - ( :1  - Z 2)  / ( CLOG  ( : 1 ) - ilo  . ( 22  ) ) 


1 ':oc  V 

v:  0 1 0 


T -A  = .'»  (TAl-^iAZ) 

GO  ""O  1- 

Tr-Ar.r.CT'l+'iZ) 

C^uL  'ASr-CTG'M,  rs,  Z1,  CP3I,  PP 
Z1  = r7z~J7 
Z2  = Tc.;-T2 

:p(:i  .Li.  0 .0  9.  :z  .L"'.  O)  go 

I p ( ;i  . . ZZ)  GO  TO  2^ 

T G '•  i = T '•  I : I + ( : 1 - 2 Z ) / ( D L 0 G ( Z 1 ) 

jC  ■"€  z: 

TG'<2  = .5»(T?&fTiG) 

GO  TO  Z2 

TG.'3  = .5»(T75-^TiG) 

continue 

CALL  GASP(T6>'1I,  FN,  21,  CPGII, 
CALL  'ASF(TG'3,  FN,  21,  0^03,  PSc 
«9IT£(t, 199)31  yLSGIITU', VI 
F:P''A'^(‘>rtC,3X,'C-iy'J=',tl5.7,bX,' 
CALL  AIAr(TA1,  PAT,  T'-'A,  Rh,  ?RA 
: L L L : . a:  ( T ■'  I , F ^ , 2 I '■  U , P R I , C ° 

CALL  wIGRCT'*::,  FG,  ZII^'o,  FRII, 
CALL  Li'.?(T'«:i:,  FG,  23'' U,  P5III 
CALL  LICr-CT''',  F?-,  ZMJ,  PR,  CP) 
AF^;GI=l,L(1  )»DM(1  ) 
AFRGI!=:L(Z)'Gri(Z) 

AFRA  = DL(‘»)*OmCa) 

GGI=i»C/(0SIG(1)»AFRGI) 

GCI!=*c/(0S!o(2)*AFR5:I) 

G G I : I = G G 1 1 

o A = » A.  / ( 0 S I u ( » ) • A F = A ) 

afri  = :i.(1)*dh(1)/dnp(1) 

AA»:I=DW(2)*Ch(2)/dMP(Z) 

AFR=i;«(A)»0h(4)/0'.  p(3) 
g:  = '-,i/{os!(1)«afri) 
GII=wi:/OSI(Z)  *AFRII  ) 

Giii=Gi: 

*RIT£(6,1C005)«II,DSI(2),AF9II 
>tRIT£(t,1CC1  0)D<,(2)  ,DH(2)  ,DNP(Z) 
F0fi"AT(1hC,3x,  '•11='  ,Fl2.t,5X,  '0 
= OR''aTChO,3x,'D«{Z)  = ',"1Z.6,3a, 
w3  = wl*»  II**i5'*''*’^’’<,V1  ♦•VZ  + wE  + wS 
G=*3/ (DSI (“) *aF9) 

R'EGI  = GGI*DDr(o(1)/GIvU 
REG:i  = GGII*CDHG(i)/GIir'U 
«EG3=9EGII 
R‘‘A=GA.Di;HC-(‘.)/ArU 
REI=GI*CDH(1  )/ZIyU 
rei:  = gii«dgh(2)/2:i'viu 
rEI  ii  = reii 


cl,  G U'  U , 


TO  2G 


-CLOG ( 22  ) ) 


P P G I I , G I I : 

c . , c - 1.  , 


G I : -I  L = ' , 1 1 : 
, A'-U,  CPA 

I) 

CPU) 

, CPIII) 


3 V , ' V I 
, A'’L) 


= ' ,E1  ' 


£1(2)  = ' ,t1 

' C H ( 2 ) = ' , E 


5x  , ' A f; 


,;x , ' cnp(2)= 


E 1 Z . fc  ) 

• ,£12.C) 


iR  I TE  (c  , 1 ' 


6)GI,GII,P£I,PEi: 


; FCR‘''A-'(1nO,3x,':-I  = ',E13.7,5x,'GI 
1'REII=',£15.7) 

RE  = 3*CCP(A)/Z''U 

v<RIT£(c,1'A7)REGI,PcGII,PEA,R£I,R 
' FCK•'AT('^C,5)^,'R£GI  = ',£13.t,AX,' 

1 'RM  = ',  i '3. i,-x,  '«  = :!=', E13.t, A 


1=' ,£1 3.7 


£ 1 1 , fi  E 


AX  , 'RE 


9£  = ' ,£1 


Z1  = Di.C..-(n:iI) 

= 25303^*21*' 

1*^-f.2  3t^4.32*Zl»*3-.?C5<.oc2V3*I1*»i 
3F:=D">=(ZZ) 

Z1  = -3  cC.4:2i.*:35. 276*21-129. 1t3fe«:i*»Zf2t.c.3^‘5»Z1**3-2.r*11yf«Z1» 
1»i-*,17667i5*Z1**3-.C0^3^57..2*Z1**6 
Gj  I =c'^x  = (;i ) 
zi=DL:.(r-o:i) 

:2  = -73C.2=‘.6*62'^.2G2S*Z1-2l‘;.52'^'»*Z1**2  + ^.0.^563*zl*«:--;.2?303i*21* 
1*^*.23c3*.32*Zl''*5-.G03<.c62'9c*Z1»*6 
jf:i=:£XP(Z2) 

GFI II=G-:i 

Z1  = -360.h22h'»-335.276»Z1-129.14,36»Z1**2  + 26.2  2‘*69«Z1»*3-2.961196»Z1* 
1*^*.1 7-67^5* Z1**5-.CCC2t5743*Z1**6 
GJI I=D£XP(Z1 ) 
oJI II=GJII 


21  = 

TL 

OG ( RE  A ) 

IZ- 

-7 

.652zc2+6.Z06772*Z1 

-1.7151 

57*Z1**2+. 175619a* 

1 Z 1 * 

*4 

A A = 

7£ 

XP  CZZ  ) 

Z1  = 

-1 

• 

1 2 3 75  1 - 1 .C«3’36*:1  - 

.05  2 05  Z 

=7*Z1**Z*.01 646611 

1**’-.C062g7£06* 


Zl»*3-.''CC7  2 22C2 


1 1 * Z 1 * *4 
AJ  = DiZXP(Zl) 

Z1 =DlOG (Rf  I) 

21  = -2Z,0‘.652’’12.cA9S6*z1-3.1Z2Cs2*Z1**2*.313r'>52*Z1**’-.u'’16123'’*Z 
1 1 *»  z 

ZJI=0£XP(Z1) 

Z1  = 0L0G(REII  ) 

Z''  = -ZZ.CHi£2*1c.iz9!ic*Zl-3.1Z:C3Z*Zl**2  + .3159152*Zi'«3-.C‘'161237'-Z 

11**4 

ZJlI  = C-EXr(Zl) 
zj 1 1 = ; j I 
z j : II  = z j 1 1 
Z1  = DL03(f<:) 

Z1=-22.CzZ52*12. 349 °e*Z1-3. 122 C5Z*Z1**2+.315o1£2*:1*«’-. 01161237* z 
1 1 **z 

ZJ  = D£XP  f Z1) 

TC3  =-2 . /3  . 

hC-I=&GI*CP3I*5JI*PR5I**T03 
HGII=GGII»CPGII*3JII*PPGII*»T03 
riGI :i=HGI I 

hA  = GA*CPA»AJ  *ppA**T03 

-iI  = GI*C  = I*ZJ  :*?PI**T03 

i:i=g:i*cpii*2ji:*ppii**tc3 

HI  I I = HI  I 

*fiITt(c,1C007)ZJII,CPII,PRII 

O4O7  FOR'’AT(1riC,3x,'ZJlI=',£l5.7,£x,'C?II=',E15.7,5X,'PftII=',El5.7) 
h=G»CP»ZJ*PR**T03 

G'’I=DSG?T(Z.*HGI/(D<('')*0DEL(1))) 

G'II  = DG''.  ST(2.*HGII/(DK(2)*0DcL(2))) 

AV  = CS9F.  T{2.*hA/(C,<(3)*D0EL(Z))) 


T03=G''I*DSl(1) 
atf  i = r'TAr.M  (TC3)  /TC3 
TC3=G‘'i:*DSL(2) 
atft:  = d'a‘.h(to3)/tc3 

T05=A''*''SL(-*) 
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AiF4  = 0TA!,M(TC3)/T03 
A’C:=1.-DAF0A(1)*(1.-ATFI) 

A’'CI1  = 1.-CA--CA(2)*(1.-ATFII) 

AT0=1.-DAFGA(A)»C1.-A’-FA) 

3''1=i;Si.RT(2.*HI/(DK(1)»0A(1))) 

3'-2  = DSC.A.T  ( . - HI  I / ( DK  (Z  ) *DA  ( 2)  ) ) 

A-'.\,=DSC;rT(2.»H/(D<(!)-:A(4))) 

TC3=C'''1*jS3L(1  ) 

ATFlL=CTANh(TC3)/T03 

TC3=3’«‘2*CSLL(Z) 

ATF  :l  = CTAN'1  (T03)  /i03 
TC3=A'’\*G3LL  (A) 

ATFAl=DTa\H(T03)/T03 

ATC'!  = 1.-0AFAL(1)«{1.-AT=1L) 

ATC2=1.-DAFAL(2)»(1.-ATF2L) 

AT0L=1.-t>AFAL(‘*)*(l.-ATFAL) 

UI  = 1./(1./(AT0I*HGn  +AB(1)/(Dk;(1)»(1.-0mFOA(1)))  +DAL3(1)/(0ALF(1 
1) I»AT01 ) ) 

uii=i./(i./(atci:*hgi:)*ab(2)/<dk(2)*(i.-dafoa(2)))+£,alg(?)/(dalf( 
u : I : = ui  I 

•J=1  ./(•!  ./(AT0’'A4)+A=(t)/(DK(3)*(1.-DAFCA(3)  ))+DAlG(4)/(GALF(4)*HI« 
1 ATGl)  ) 

C5I=i»?»CPGI 
C 3 I I = * c ♦ C P 3 ! : 

CGI  ::  = c3i I 
Ci  = '.iA.C°A 
C 1=  aI’C  <^1 
CII=«II*CPII 
C 1 1 I = C I I 
C = *.3’'CP 

c : M = c " I M ( c 3 : , c I) 
c''Axi  = c''A)(i  (C3:,ci) 

C'-'I  NI I =D-'’IM  (C3:i  , C!  I) 
c''Axii  = rr-Axi  (CGiifCin 
C^I\=DMM  (CA,C) 
c A X = D y A X 1 ( C A . c ) 
ag:=ol(':)*5h(1)*gv('1)«dal6(1) 

A3II  = CL(2)*Dh(;)«D..(2)»DALG(Z) 

Hex  II  — A-  il 

AA  = ?L(‘*)*Cri(i.)»G«(4)*CALG(4) 

tg',\i  = ag:»ui/c'':m 
tumi  = ag::*ijii/c'-i:mi 

T'jM  = '"UMI 
TU\=AA*U/C'X'I\ 

T'^wI  = 1.-0EXP(-TUM«CI*'IM/{C>'AXI*D\'P(1))) 

T^wII  = 1.-D£XF(-TjMI*CMMI/(C''AXII*DN?(Z))) 

TC«  ! = TO«I I 

T0«=1.-DEX  = (-TUN»C'^IN/(C'«AX*l)NP(3n) 

= SSI  = ‘'.-0£XP(-T0/.'I*C'4AXI/C''1M) 

, £SSII  = 1.-0£X?(-TO»:l*CyAXli/C’4lMI) 

/ ‘ £C1)3  = £5CII 

5 £3S=1.-C£XF(-T0*l»C"*AX/C'''IN) 

■ I-  fC-IM/C’'-XI  .GT.  .599;)  GO  TO  31 

£ = SI=((1.-£SSI«C'1INI/CVAXI)/(1.-££SI))»*N=(1) 

£ = S;=(£F3I-1.1/(£  = SI-C''IM/CyAXI) 


\ 
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5 S 1 1 = ( £ H S 1 1 -1  . ) / ( E P S I I -C  r*'  I M I / C X 1 1 ) 

£'=S  £=£PS1I 
£C  -"0 

33  £PS:i=DNPCZ)»cSSII/(1 .*E££II«(DNP(2)-1.)) 

£°S  3 = £PSI  I 

34  IF  (C'^IN/Cy.AX  .GT.  .9454)  GO  TO  35 
EPSA=((1.-£SS*C'^I‘J/C'»ax)/(1.-£SS))**N°(4) 
£PS4=(EPSA-1  .)/(tPSA-C’OlN/CWAX) 

GO  TO  36 

35  E=SA=0N-(4)»£SS/(1.*ESS»(DNP(4)-1.)) 

It  CCMlNUr 

TQ3=F'M*F'«1 

P01G  = DIG*(1.fT03*(GAyiG-1.)/2.)**(GA'-rG/(£A''IG-1.)) 
GO  TO  (’0,  40,  5 0),  NDSC-\ 

C CAVITY  OPTION  1 CONST.  yACH  Mj*"=Ek 
30  F''2=Fvl 

A(2)='(1)»(T02G/TClG)*»((1.-^GA.MI‘^*T03)/2.) 
o C TO  6 0 

C CAVITY  OPTION  2 CONSY,  AAEA 
4 C A ( 2 ) = A ( 1 ) 

Z1  = TC1G»(1.  + GAYIG*T0  3)»»2/(2.*(GAwiG  + ''.)»TC3* 

1 ( 1 . -T''3*  (GAYig-1  . ) /2  . ) ) 

Z1=T02G/Z1 

I''  (Z1  .GT.  1.)  GO  TO  1 0000 
1 = 0 

1 2 0 0 C I = I + 1 

CALL  CA^PCTZu  , FN,  Gi^PG,  CP2G,  T03,  T02,  GMU) 

2 z = 2.*oA^•2&•Z1-^.*GA^‘2G-2. 

:3  = GA''2G*GA''2G*(Z1-'1.)  + 1. 

IF  (Z!  .NE.  C.)  GO  TO  41 
F 2 = 0 S G 4 T ( - Z 1 / Z 2 ) 

GO  TO  60 

41  Z4=(-z2-iSaST(Z2*Z2-4.*z1*Z3))/(2.*Z3) 
Ze=(-Z2-0S4ST(z2*Z2-4.*z1*Z3))/(2.*Z3) 

Z6=DYIn-'(ZA,  Z5) 

IF  (ZO  .LT.  0.)  Z6=DYAX1(Z4,  Z5) 


W 0 

174  F 0 
WA 

17  3 F 0 
1/,- 
FYi; 
60 
cAvr 
50  Z5  = 
It- 
N = f 
00 
Z1 
Z2 

- T 


T£  C t , 1 7a)  TCZG  , T03  , 

•-AT(lHC,3x,’T02G=’,E15.7,iX,'TC3=',£l5.7,5x,'Fi?=',515.7) 
T£(2.173) Z1 , Z2 , Z3 , ZA  , Z5  , Zo 

''AT(1hC,3x,'21  = ',E15.7,5X,'Z2  = ’,£15.7,5X,'Z3=’,£15.7,5x, 
X,’Z4=’,E15.7,5x,*Z5=',£l5.7,5x,'Z6=',El5.7) 

=DSGRT(Z6) 

TO  60 

''  OPTION  3 GENERAL  SHAPE 
(GAvig+gATZGI/Z. 

cv 1 . CKI 

CS-1 

51  j = 1 , N 

-2.*(1.yZ6*(Z5-1.)/2.)/(1.-Z6) 

(1 .♦Z3»Z6)*(-.5*Zl) 

(ACN (J*1)-A:n(J))/(2.*(ACN(J*1)*ACN(J))) 
(T''26-T01o)/(<NCS-1.)»TC1G-(J-.5)»CT02G-T0  1G)) 
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Zt=:t*(T  . + Zi»2l +Z2*Z4) 

1 (Z6  .L£  . ' GO  TO  5 1 

13000  .»FI  T£  (i>.0 , 1 05  ) 

1C5  r0(^''''AT(ilH**»*  ChO<ED  CAVITY  - SZ4D  NEa  CATa  «»*«**) 

GO  TO  2 
51  CONTINUZ 

F,-''2=DSCiET(Z6) 

A ( Z ) = A C '•  ( Ni  C S ) 

;C  T2c0ld  = '^2G 

T2C=T32G/(1.+E-*2*'M2*(gA'^20-1.)/Z.) 

T2G0IP=T2GCL0-T2G 

I E ( DA= S ( T2G0  I F ) . L£ . . 5 OC 3 GO  TO  11C00 
I l:  .NLi" ) oO  TO  1 2000 
PRINT  1 lOCO  , I , T2&DI  F 

1 3000  FOR’<’AT(£oH*»«*FAILUPE  TC  CONVERGE  IN  STATIC  T £ ''I  o . LOOP  1 - CYCLES 
'=  , 13,  ' - ERRCR='  ,E12.53 
GC  TO  2 

lIvCU  «RITE(c, 10050)  0 A i/2G,  gtU.TZG 

10030  FCR‘''AT  (1hO,5x,'GA>i2G  = £15.7,3X,'G-’1U  = •,E15.^,3a,'T2G  = ' 

1, £15. 'RIGHT  =£FORE  110  CO',//) 

= 2G=WG*0SiRT(T2G/(GAY2G»G''U))/(20.7‘774*A(2)»F''2) 

= 02  G = °2G*  ( 1 . + F v,2*  FM2*  ( G A.Y2G-1  . ) / 2 . ) *»  (G  AYiZO  / ( GA'-'2  G-1  . ) ) 

C FIRST  OIFFuSER 

PC3G==C2G-CF23*(P02G-=2G) 

F M 3 = F •'  2 * A ( 2 ) / A ( 3 1 
GAy3G=OAY2G 

CALL  YACnCCEL'*,  NLIM,  P03G,  GAY3o,  £''03,  TC2G,  * '!  , G'^U, 

1 A(3),  P3G,  T3G,FN,C-ZG) 

c second  diffuser 

p04'  = = C3G-CF24*(P03C--P3G) 

F'.'4  = Fv3*a(3)/A(A) 

&AM4G=G AM3G 

CALL  ■'•ACHCDEL^,  NlI>’,  PCAG,  GAYAo,  FV4,  T02G,  A ^ , G"U, 

1 A (4)  , PAG , TAG , FN , CPAG) 

C third  Di FCusER 

P05G=°043-Cfa5*(P04G-pag) 

FV5=p,.i*^(i,)/A(5) 

G A Y,  5 G = G A ,Y  A G 

call  '•AChCDSL'',  NLIY,  P05G,  GAYSo,  Fy5,  T02G,  WG,  3''U, 

1 A(5),  P3G,  T5G,FN,cp5G) 

RC5=.':’')317i*P5G*G''U/T5G 

.R06=R05 

F''6-«£*DS0RT(T06G/GAv.  FG/G''U)/(  2 0.777a*P05G*A(5)) 

1=0 

70  Z1=R06 

P06'==G5G-GGI*GGI*((1.*DSIG(1)*DSIG(1))*(RC5/506-h,)* 

1 G‘^I*DALG(1  )*DW(1)*fiC5/(.5*DSIG(1)*(P06fR05)))/ 

2 ( R26C  . 1 1 *R05 ) 

3AN6G  = GAyi53 

call  '^ACf’(D£LY,NLI^’1,P0£G,GAY6G,FY6,T06G,»G,GYL',A(6),PiG,T'‘G,FN, 

♦ c = t r- ) 

RCt=.C>3l7c*P6G*oYU/T6G 
I = I 

Z3=  =Ct-z1 

IF  (DA-CCZ)  .L£.  RCLI'Y)  GO  TC  "’I 


IF  (;  .LT.  NLI'')  uO  to  7C 


-.’i/cCKr.ioi ) z3 

101 

FCR''AT(53m**.*  failure  to 

CONVERGE  IN 

DENSITY 

UCQF  1 - =RFOR  = 

1 

EIZ.S.cH******) 

71 

CALL  A A : p ( T 0 7 , r N , 3 A M 7 G , 

CF^’G,  TC3, 

T03,  -MU 

) 

-R I T£ ( <C , 1 30  ) I,  Zi 

1 50 

FT  p VAX  ( 1 V,  X , ' DENS  it  Y LOOP  1 

- CYCLES  = ' 

' , i: , ■ - 

E==0k  =' ,E1?.5) 

PC7'=  = C^':»G  = R 

J ~ V 

zj  F'-'7=wI«r':GnT(T0?G/(r,A''7G»Gr.U))/(£;0.T77i*P07G»t(7)) 

CALL  -'AChCOtLi^,  NLI'',  FC7G,  uAir7o.  FM^,  TC7G,  >.r,  z'^U, 

1 A (7) , P7G,  T7G, FN,CP7G) 

;?0  7 = .^c317S«f7g*G'''J/TTg 
SO: =PC  7 

I T£ ( t , 1 C025) TOiG 

100Z3  FCR‘''AT('!p,0,3X,'T05  6=  ',£15.7,3x,'FIRST  USED  IN  A CALCULATION') 
F '•  i = V.  G ’ C 3 Q R T ( T 0 M / C A :vi  7 G / G " U ) / ( Z 0 . 7 7 7 A * P 0 7 G * A ( ■ ) ) 

1 = 0 

10  3 3 2 Z ' = P 3 A 

D ..  ( A)  =D  „ ( 1 ) 

DAL"CA)=DALG(1) 

1 1 1 = G I 

= .;3':  = = 0'^G-GGIII«3GIII»((1.  + DSI3(1)«DSIcC1))* 

1 (=’vyT/QO-:-1  .)-fGFIII*DALG(3)»Dw(;)’'<=07/(.5’'D3IG(3)’ 

Z(  = 0^*^C-)))/  (92tS.11»RG'^) 

3Ah'iG  = GA«'’3 

«PIT£(£.10a01)PO-3G,GA‘";G,F'*'5,TO1G,«G 
13  3 0 1 FOR''MT(1hO,3x,'?OEG='  ,E15.7,5X,  'GAv; 

1 ' F-1  1 5 . 7 , 3 X,  ' T01  G = • , cl  5 . 7,  ; X , • wG 

CALL  "ACri  (0  EL/ , NLI LG  , GA.-'^  i;  , F'-c  , 
lPEu,TL3»FN»Cr:G) 

■<Cl=.3  9217;*PS0*G''U/t:-L 
1 = 1*1 


TOAGfi«cto'o'tA(c)j 


z3=po:-:i 

(DAcSCI)  .LE.  ROLIT)  GO  TO  ^7 
IF  (I  .lT.  NLI.I)  '■-0  TO  1JGQ2 
-.RITE  (XO,10CC3)23 

100  0 3 FOR  'AT  (53h****FAIL'JRE  TO  CONVERGE  IN  DENSITY  L00=  3 - ERF'OR  = , 
1£1Z  ,5.6*^»*****) 

77  continue 

call  ''ACh  C del-' , NLIA",  PCaG,  3AW3G,  FYE,  TOcG,  G , G''U, 

1 ACZ).  f^lG.  TkC^FN^^pS-o) 

pc9g==c=o-cf2;»(pc5g-p3G) 

F '■  9 = F i * A ( £ ) / A ( 5 ) 

G A ,Vl  c,c  r 3 /,  -1,;  G 

CALL  "AC.-I  (DEL'' , N L I , PC96.  GA!'9G,  FA'P,  T06G,  ..  G , G^'U, 

1 A(9),  P9G,  TVG.FN.CCyG) 

= 31  OG  = POy:--:  Fv10»(F09G-d?3) 

F -1  0=  Fy9« A ( 5 ) / A ( 1 C) 

G A 1 0 C-  = G A ■/  9 G 

CAlL  '•ACHCDEL-'’,  NLI'*',  P010G,  GA'IIOG,  F'.<io,  TOlG,  i.C-.  C/U, 

1 A(10),  =10G,  T10G,FN,CP103) 

RO10=.:=317i*  = 1QG*G'»U/T''0G 
9C1  1 = R01  0 
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fvi'!=v,G«0S-ST(T011o/GA''10G/G:^U)/(Z0.7^7',,pci0C-»4(1Q)) 

I = C 

75  Z1=7C11 

P011G=PCi:o-GG:i*GGII*((1.+DSIG(Z)»DSIGCi))*(A010/R011-1.)* 

1 G‘-i:«:ALc(Z)’«3..(2)*-01J/(.5*L'SIG(2)*(no15*K01‘!)))/ 

2 C :::c .1 1 «R01 C) 

3AV11g  = GA-M03 

«'^I"E(t,1i5)P01l3fGA:mG,c'^11,T01G,*G 
1?5  FCP''AT('!rtC,2X,'POllG=',E15.7,5X,'GAV11G=',E15.7,5x,'F''11  = ', 
lEl5.7,5x,’TOr3=',M5.7,5x,'xG=',El5.7) 

CALL  ■•’ACH(DEL'’,LLlf*,PC1''G,GAyi1G,F;Mii,T01G,*G,G'‘U.A(10),P‘'1G, 

« T11G,F‘,CP11&) 

«011=.3PJ176»d11G*Gvu/T11G 
1 = 1+1 

Z3  = P01 1 -Z1 

(DA,;S(Z5)  .LE.  KCLir^)  GO  TO  7 1 
IF  (I  .lt.  nliv)  go  to  75 
ASITE(^:,1:o)  z3 

12C  FCF"AT(53H****  FAILURE  T3  CONVERGE  IN  DENSITY  LOOP  2 - EF.  OOR  = , 

1 E12*5*6p******) 

i r 1 1 = ^ * D S 0 R T ( T 0 1 G / ( 3 A : 3 • G •'  U ) ) / ( 2 0 . 7 7 A * D L 11  - « t ( ■'  1 ) ) 

:.RIT£(<''.151  ) I,  Z3 

1:1  F On- A T(KX,  'DENSITY  LOOP  2 - CYCLES  =',I3,’  - ERROR  =',E12.3) 

CAlL  A Ch  ( DE  L-' , NLI'*,  F 01  1 G , G Al'l  1 G iF^II,  T01C-,  n G , G7U, 

1 ACm,  P11G,  T11G,F\,CP11G) 

IF  (JCFRo  •G;:*  0) 

1 Z1  = P01*TIG/(.G;317s*Gvu)»(1.  + (GAi''IG-1.)*F''1*Fv1/2.) 

2 » * ( G A I G / ( vj  A ' I G - 1 . ) ) 

zi  = coii:--:fiii»(poi'!c--piig)-zi 

IF  (jcppo  .lt.  C) 

1 Z1  = PC11g-CM1'I«(P011g-P11O)-PO1G 
=01 1G=F0113-Z1 
PCI  0G  = P''1  0G-Z1 
PCAG=R0PG-Z1 
POc  3=PC5G-Z1 
P07G=P07g-21 

call  GASP(T6G,FN,  GAI«6G,  CP6G,Z2,Z2,G''U) 
aRR=PC7G/=06G 

‘'jiG=eG.*A(6)*Ff''t>»DSQRT('--AV:;G»TtC-*32.17A*15A5.A3/3VL) 

ATAE=.7  3 0-7.:'9bA3*(DA3SCr.iG/ERPY/N9S-.3355))»*2.C=0U 
A T A R = . t 

-^pite(c,1.:6)Z1  ,P07G,P0eG,0c& 

1c6  P0R''AT(lHa,3x,'Zl  = ',£l5.7,5X,'PC76=',E15.’,'X,'P0  6G=’,El5.7,;x, 

1 ’ G 6 3=  ' , = 1 5 . 7 ) 

wRIT£(c,13  7)  T06G,oPfi,GA.v|EG,ATAB 

13  7 FORR'AT(lHC,3xf'TO  + G='.£15.7,5X,'BPR=',£l5.7,5x,'GAY>6G='.£15.7,5x, 
1 ' ATAd= ’,£15.7) 

T:7:-  = TC‘:G*(BPR**((GA|VieG-1.)/(ATAa»GA,M6G))) 
wFiTECt.lSO)  T06G,5pR,GAYI6G,ATAB,T0'^G 
1“0  FCR''AT(lM':,3x,'TOtG=',E15.7,5x,'riPR=',e15.7,5x,'3A»'(SG=',£i5.7,5x, 
1 'a-ae=',E15.7,5x,'T07g=',£15.7) 

J = J *1 

IR  (CAcSCZI)  .LT.  PLI’')  GO  Tq  55 
IR  (J  .LT.  NLIM)  GO  TO  C 
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kOS 


c ko  , 1 0! ) :i 

103  rAIL'JKF  TO  COT.  VEI’wa  IN  P!?iOSiJRa  LOOP  - 

1 c1Z.3*oF'»«*»»*1 

■5  CALL  tl^PCTAl,  =mT,  TAl,  Ph,  ZZ,  ZZ,  CPAI,  ZZ,  A^'L) 
--I'cUC.ISZ)  J,  Z1 

15Z  POn'ATdOXt'TCTiL  PASSES  ThPCUGH  PRSSSuPE  LCO° 

1 ' - ERROR  =' ,£1Z.5) 

call  AI'PCTAI,  pat,  TAZ,  “h,  Z1,Z1,  CPAZ,  &AV2A,  Al/L) 


CALL 

Ll 
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ZI 

t 

CPI  0 ) 

CALL 

Ll 

0F(T14, 

FG, 

Z 1 
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Z 2 = ami 

TIG=6'-T(n/(1.*(GA''IG-1.)»F'o1*FMl/2.) 
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= 
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= 
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= 
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7 *S I te (<c, 3 Jl  ) J J , Z3 

3 01  fC^'ATdOX.'TOTAu  PAS33S  IN  FINAL  ■'"ACH  LOC°  =',I3,'  - EP'iCP  =', 

1 cU.5) 

11=11+1 

If  (KS  .IG.  1)  30  TO  f1 

00  75  <S=1 , 1 c 
,N\  ( <S  ) =-1 

T0IF(xS)=SVR(<S)-f7T(<S) 

IF  (:a3S(toif(<s))  .:-t.  co^v(^s))  nn(<£)  = i 

<^3  CCNTIME 

«F I TE ( KC  , 201  ) 

2 01  FOR ‘'ATCICy, 'STATE  VARIABLE  ERRORS') 

aRITe(no,300)  t:if 

300  FOR^at(10X,1CE12.a) 

-RI T£ (KO , 1 53 ) II 

153  FOR '•AT(  1 Ox  , ' END  OF  S I G PASS  NO.  ',13/) 
call  output 

IF  (II  .GT.  NLI'')  go  to  92 

>3  Ql  < 0 = 1 , 1 c 

IF  C N \ ( < 0 ) . G £ . j ) GO  TO  9 5 

aa  continue 

oO  ’’0  9'' 

w'-I’’E(i'- 0,10a) 

1..-.  FOF'-AT(Lch«»»*  failure  to  CONVERGE  IN  STA^E  VAkIAELE  LOOP*, 

I  ^rl»*****) 

9 0 Fvt=>,s»oS9RT(TOt;;/(GATcr:*Gr>'U))/(Z0.77T,*PCLG»A(6)) 

CALL  '‘ACrt(DEL'',  NLI'',  P06G,  6 A v E , fm6,  TOto,  «G,  G^U, 

1 A ( 6 ) , P 5 G , T s 3 , F N , C ° C :-  ) 

FN3RS  = 0Fl0AT  (N3°S) 

F \ 5 S = D F L 0 A.  T ( N S S ) 

0PSS=(CR07o-F06G)*T0t; 2a. 5ot)/(F  0 t3*5Rf  *1  ?pv  *51^,7, (:vu»c^,5PS) 
0rSP=.c:y6-3.23Z3*(DA?S(3£6/(ER°''.*FNbS)-. At -:75))**1. 42327 
DPS3=CPSB*1 . £-9 
£RR=DPSH-OPSS 

3C=11.661£-7/(EPpv*p(^5S)*11.559E-5*VI'’»*.to7/(bRpv*Dppv*FNEPS) 

3C  = TRP/:-C 
J V = J V * 1 

ivF,  ITe(kO,2Q4)  jv,  GC 

2  34  F0R‘"AT(5a, 'PASS  NO. ',13,'  TMROuGh  VELOCITY  LOOP,  CORRECTION  ='. 

1 £12.5) 

;,=  l''£(t,175)L6G,&RP'^,FNPS 

IT;  FOR''"AT(1riO,3x,'ODj=','15.7,5x,'5;RPN=',':1:.7,5x,'FNaS=',E15.T) 

0 C = 0 . C 

IF  (DAbS(GC)  .L£.  VLI'’)  GO  TO  502 

1 R ( J V . GE  . NL  I'* ) GO  TO  505 

IF  (GC  .LT.  C.  .AND.  G6G/(3RPR*FNSS)  .LT.  .46c75)  GO  t,j  504 
506  CONTINUE 

V I Y =V I Y + GC 

VI  = vr''*3.2o1 

• .“A  T ^ o i 

L'5  FCh'-^ATCOh****  =lC«£RS  AhE  CHOKEu  - PROCLSS  NEXT  CASE  **■»***) 


oO  Tc  ; 

5Ci  «JP:te(^0,2C3)  .jC 

;;■!  ?CRv;i-r(52H»*».  Failure  to  converoE  in  velocity  lcco  - er 

1 £12, E,£f^  »*««*•} 

5 0:  conti'.ul 
TOE  F = TO  'G 

to»:=to:g 
ro5  : = T02G 
T:>G  = 'rc,ou 

T310E=TOoO 
TCI  1 G = T01 G 

3LPP  = *G».5’«(C'=OG’-CPT3)*TC6G*(?PR»*((1.-2./(EAv,6Gt-C-AY7G)) 
1 /ATA5)-1.)*77E./5SC. 

BLPRN=£LPR».7A57 

OPI=U.3'I7£-4*GI»GI*FI*DL(1)*DNPC1)/(ROLI»DOH(1)) 

DPi:=A.3l?t-4*GII*GII*Fi:*0L(2)*DNP(2)/(RCLII*0DH(2)) 

OPI  II  = 0PII 

0F  = A.31'’E-4*G*G*F*0L(A)*CNP(3)/(RCL»DCH(U)) 

P0A';  = '>Ai.»PAT*A''L/(15u5.32*TAl) 

riOA2=POAl 

LL  = 0 

37  n = =GA2 

Pi  :=PAT-GA*GA«((1.i-DS:G(A)»*2)»(R0A1/R0AZ-1.)* 

1 A^*0ALG(A)*3«(..)*PGA1/(.5*gSIG(A)*(poa1+rCa2)))/ 

2 (=OA1*2..3Z.1'’4*iL4.) 

RCA2=1ua.*PA2*Ayl/(15A5.32»TA2) 

Ll=LL*1 

23=R0A2-Z1 

(DASSCE)  .LT.  kCLI-O  go  to  3 5 
IF  (LL  .Li.  NLI'O  SC  TO  37 
A5IT£(^0,UG■!)  Z3 

U01  FOR ’"AT  ( A?M*»**  FAILUFE  TO  CONVERGE  IN  AUX.  DENSITY  LOOP 
1 'ERROR  =',c12,5f6H******) 

GO  TO  3 A 

Ed  *RITc(<c,Z02)  LL,  Z3 

ZC2  FOR "ATCIOX, 'total  PASSES  THROUGH  AUX.  DENSITY  LOOP  =',I? 
1 ' - ERROR  =',E12.5) 

39  P F = A A * C ° A 2 » T A Z * 7 7 s . / 5 5 C . 
wFITE(C5,10  0 0‘.)GA'-2a,ATA  = 

10  0 0A  FOR''AT(1r.O,3X,':-AvZA=',E15.T,5x,'ATAP=',E15.7) 

P!:vi=.7l57*pf 

R0tG=.:"317S*PeG»G''U/ToG 

JCORR=C  ..*«S»DGDRT(1  .4»GYL'»51  !.'’/(  jA,y.*G*Z3  . ?7*TC6G)  )/oO-5 
DO  ^9  <3=1  , 1 6 
<59  SVfi  (kS)=ETT(<3) 

ODI=«I»1SOO.*(CP2*CP4)*(T4-t2) 

ODII  = AlI*1iOC.*(C°2-*-CF6)*(T6-T2) 

9c  I II  =«'.r  I : 

«RITE  (t,1JCC!)CP:,CP6,T6,T2,«II 
1 0 035  F0R''A-(1hC,3x,'CP2=',:15.7,5x,'CPt  = '£15.7,5x,'T6='E15.7, 
'''TZ  = ',£''5.7,5x,',II  = ',£i:.t) 
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3,  CP 

3A,  C 

=•45 

9 

c 

, CPc 

C F? 

■'  0 , 

C 

or<"'C\ 

/V  arc 

/C  FI  1 

1 , 

ATAF , hi 

, CL1 

, w 

7 1 

9 

A 

r 

c 

N ( 2 '0  ) 

, 

DC  , 

OL  ( 

) 

9 

A 

D ^ ( A ) , : , ( 

A) 

, D 

C.H 

( A) 

9 

D AL  G ( A ) 

, D A FO  A ( 

w.  ) 

9 

5 

IG  ( A) 

, 

DDEl ( A) 

9 
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J 


i Da(t),  C^(5),  jSL(i),  iSI(t),  C-ALF(4),  3D-J(A),  C0NV(16),  DdL-^, 

: F.OlI.",  PLl'',  Fd,  TlTLt(?i),  DF,  DPI,  DFH,  D >=  I 1 1 , PPS,  PPP", 

■ TA1  = , RPP,  ETIc,  ETC25,  -TCo'E,  dTC’G,  E T i , 

: £T;,  ET3,  £14,  ET6,  £T;,  £T1C,  p T 1 , E T 1 t , E T I i , ET'O,  £TA2, 

I ' 'J  f z I . t 

■ £''pp,  CaA,  ;\P(3),  ;cI,  iDII,  GDIII, 

I - 0 A , E V I R = , V L I M , P j a 1 , 

. r''A2,:AFAL(^),DSLL(A),A£(A) 

C 0 iV  •'  C / I'JAR/  T A V , N 5 s G N , \ C S , I , < , \ L I \ P ( A ) , \ F U l L , 

I \tZ,  :>5PS,  JCPRC 

ECuIVALENCt  (ESVS(I),  £TIG) 
euci valence  (svFcntTciG) 

NAYELIST/FPI/  NTAv,  JalF,  PLK.*,  ETIG,  ET02G,  ETOoG,  E‘pC7G,  ETI, 

' ET2,  ET3,  eta,  ET6,  ETA2,  ET1A,  ET16,  £Ti,  eTIO,  ET15,  =120, 

J EFFL?,  ml,  wll,  *III,  '*E,  W'^,  aVI,  wVZt  W£,  W'S*  C«*A, 


R = , V L I M , P 0 a 1 , 
\ p ( A ) , \ F u L L , 


ET2,  ET3,  eta,  ET6,  ETA2,  ET1A,  ET16, 

r-rfi"s  ▼ »»»  .1-  ..A 


c 

Q C , G M , 

Gvi 

, GV2,  3 

^ , 

GS,  CF23, 

C F3A 

C FA= , c F75  , C Fs9  , 

C F51 0 , C 

Fill 

, 

w 

£ V I , 

ATAP , FI 

6A  , 

n 1 .S'  , C L 1 

, 

* T 1 1';  , F N , 

ACN, 

c 

OL  , 

0 “*  r u W j 

DDES 

, D ALT  , 

D A C 

OA  , D S I G , 

DDEl 

CA,  o<h,  DSL,  DSI,  DALF,  DDri,  \p, 

= R*-'?,  ££PP,  A,  CONV,  D 

MI'',  R 0 L I '1  , P L I , F G , £ R P , 7 L I , 'J  2 
CAFAL,DSLL,  AP 


V - c 

READ(  <1,20  0 (TITLECJ), 0=1,1-,) 
REA:(<I,200)  (TITLE(j),J=15,2') 
F C R A T ( 1 3 A 0 , A 2 ) 

READ(<:,FPT) 

TA1  =TA1  = + A5'?  .C9 
t:g=tai 

T02G=TA1+210. 

TCD  G=TA1  -fjo  . 

Tc7E  = TA1-t-70. 

T1  = TAI +20  . 

T2=TA1+:0. 

T5=TA1+A0. 

TA  = TA 1 + E 5 . 

Tt=TA1-3G. 

T;  = TA 1 +05 . 

T10=TA1+(3  5. 

T1 A=Tal *30. 

T1 t=TA1 *75 . 

T 1 A = T A 1 * t 5 . 

T2C=Tei*o5. 

TA2=TA'i*30. 

T7=iA1*20. 
iPR  =1  . 1 ' 


EL‘,  DSGfj,  MCS, 

3,  N5PS,  JCPRO,  R01, 


= 120. 

30  <=1,16 
(ESORCO  .GT.  :.) 


£VR(<)=ESVR(<) 


( 
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«^:TE(&,1002o)SVr<(1),S\(S(2),SVt<(3;,SvR(^),SVS(15).SVS(1':),SV«(17), 
1SVR(1=’),SVR(1  = ) 

10J2t.  F C R-'AT(1ho,3<,'S^^«J(1)  = ', £15. 7, 5x,'SVR(2)  = ',R15. 7, Ex, £15. 
17,Sx,’SVR(4)=',e15.7,//AX,'SVP(15)=',E15.7,5x,':vF(16)=',E15.7,// 


25X, 

' S V ? ( 1 7 ) = • 

,£15 

. 7 , 5 X , 

•SVRd 

I 

(EPPR 

• G T • 

J . ) 

3PR  = 

EbPR 

I P 

( E V I 

• c T * 

0.  ) 

V I " = 

£ V I ■■'1 

I F 

( N T A N‘ 

.LT  . 

0) 

call 

EXIT 

I F 

IN  XN 

U W 

( N T A M 
ZC  J=1 

• L E • 

t19 

0) 

GO  TO 

1 0 

c.  'j 

1 0 


102 
1 C 1 


SVP  (J ) =ta1 
CONTI'JbE 
PIG=F:G4’'1‘..7 
RM=!JhP».C1 
£ F FL  = £ F FlP« . J1 
V ! = V I • 7 . 2 5 1 
OC  = OC'^*  .032  5 1 
•.  1 = H 1 V * . G 3 2 5 1 
«~1  =«T1  C3  2F  1 
C L 1 = C L 1 ■■■  * . 0 3 2 5 1 

CALL  ilPPCTAl  , =AT,  TFI  , Ah,  : 
A ^ A 1 = p A T , A r -,  L ’ . : " 3 1 7 / T i 1 
,a  = coa1*C«A»G3Gs'T(TA1/51>;.7)/' 
5 < ( 1)  = : K h ( 1 ) / 3 c : 0 . 

D<(2)  = GKH(i)/3cCu. 

DXCZ)  = DXH(h)/3oC0. 
b\P(1)=\P(1) 

D N p ( 2 ) = N P { 2 ) 

G \ ? ( 3 1 = p ( 4 ) 

A (1  ) = m*CLi 
-jihG-Vl*AC1  )'*t3C  • 

.,SITE(<C,102) 

FOP'^AK  • 1 ' ) 

AP1T£(K.0,FPT) 

F0«'''AT(21X,l4At) 

«sit£(ko,ioi)  title 

RETURN 

END 


I 


X , 


■L) 


1 


subroutine  GASPCT,  pNi,  TA'<,  CP,  PR,  U'’ 
I'-PLICI  T REAL*!  (S-H,r-Z) 

Dl:*!  ENSIGN  FN(4),  wrCA),  T=(4),  C(4) 

'f4).  X(4),  CN(4),  S(4) 


(-i)  , 

1 = h E 

2 = N2 

3 — CO., 
= CG 


C^U  ) 
U(4),  FK(4), 


DATA  Tg  /A. 215DC, 77. 40(,,1T4.c;:  0,51.500/ 
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DAH  /A.O'vDO.ic.Cl^oO,  4A.C10;0,  2S.010d0/  , » /I.^S 
C ( 1 ) = 1 . E 4 0 c 
IP  (T  .L£.  65C  . ) 

IF  (T  . . biO.) 

F<(1)  = (.97-^(T-o5C.)*(1.13-.'57)/20  0.)*.1 
FK(1)=F<(1 )/5eoo. 

G ( 1 )=1 . t£67 

U(1)  = 1.'l2+(T-i0  0.)*(1. 955-1. 12)/500. 

U (1  ) = U ( 1 ) *1 . fc-5 


!►  (T  .Lc.  6C0) 

C(2)=3.5O2*(T-aGO.)»(3.5065-3.5'2)/2:0. 

IF  (T  .-T.  i«C.  .AND.  T .L£.  2C0.) 

0(2)  = :. 5365*(t -6 :c.)»(5. 5315-3. 5C65)/2:C. 
IF  (T  .GT.  SC"'.) 

C(2)=''.5i1£*(T-5  0C.)»(i.55;-3.5315)/1  0 0. 
C(Z)  = C(2)*S/«''(2) 

IF  (T  .L£.  65C.) 

F<(:)  = .9Z5-^(T-‘.30.)  *(1.265-. 925) /200. 

IF  (T  .37.  650.) 

F<(2)=1  .265+(T-650.)* (1  .573-1  . 265)72 0 0. 
Fic(2)  = f<(:)*1.^.£-2/36CC. 

G (2  ) = 1 .4 

IF  ( T . G T . 6 0 0 .) 

G(2)  = 1.4i-(T-600.)*(1. 391-1. 4)7300. 

IP  (T  .Le.  55C.) 

0(2)=. 9 35*(T-450.)*(1. 057-. 933)7100. 

IF  (T  .67.  530.  .AND.  7 .L£.  725.) 

U(2)=1.C-7*(7-550.)*(1. 33-1. 067)7175. 

IF  (7  .07.  725) 

U(2)  = 1. 33*(7-‘’ 25. )*(1. 545-1.  J-')71‘'5. 

J (2  )=(J(  2)  *1  . 1 1 ^25-5 


IF  (7  .LE.  600.) 

C(3)  = 4.195*(7 -A  50. )*(4. 653-4. 1^5)7150. 
IF  (7  .G7.  6dO.  .AND.  7 .L£.  750.) 

C(3)=4.653+(7-60C.)*(5. 045-4. 653)7150. 
IF  (7  .37.  750.) 

C(3)==.C45*(7-750.)*(5. 365-5. 045)7150. 

C (3 ) = C ( 3 ) *R7  -v  (3) 


. 50C 

F<(7)=.SZ+CT-425.)*(1.32-.'2)/17S. 

I P ( T. Li . 1 4C . ) FK (3 )=5 .71 it-3 

IF  (T  .GT.  6G0.) 

FK{3)=1.32-(T-cC0.)»C2.1Z-1.i2)/Z5:. 
F<(3)  = F<(31*;.*.0  7'-3/3tC0. 

I = ( T . L £ . 4 5 0.) 

G(3)  = 1.334-(T--0Q.)*(1. 315-1. 334)/5.'''. 

IF  (T  .GT.  450.  .AND.  T .Li.  550.) 

o(3)  = 1.315-^(T-..30.)»(1.2c6-1.315)/1G0. 
1=  (T  .GT.  550.  .AND.  T .Li.  650.) 

G(3)=1.256+(T-550.)*(1. 2645-1. 2S6)/1C0. 
IF  (T  .;-T.  650.  .AND.  T .Li.  750.) 

G(2)=1.2645^(T-650.)»(1.24S-1.2tL5)/100 
IF  (T  .GT.  750.  .AND.  T .L£.  ®50.) 

G(3)=1.24?-t-(T-75C.)*(1. 235-1. 24S)/100. 
IF  (T  .GT.  350.) 

G(3)=1.235*(T-o5C.)*(1.2295-1.235)/50. 
IF  (T  .Li . 5 75  .) 

U(3)=.>175*(T-450.)*(1.152-.9175)/125. 
IF  (T  .GT.  575.  .AND.  T .Lt.  7^0.) 

U(3)=1.152+(T-575.)*(1.375-1.152)/1?5. 
1<=  C T . ; T . C 0 . ) 

U(3)  = 1.375-^(T-7C0.)*(1.5‘.1-1.375)/10C. 
U(3)=U(3)*9.2C67=-6 

FT=  FN  ( 1 ) ♦fn  ( 1)  + c.-M  (3  ) 

N G A S = 3 

IF  (FN(4)  .Li.  0.)  GO  TO  10 
FT=  FT  + FN (4) 

NG  A S = 4 

I^  (T  .Lt.  5**C.) 

CC4)=!.503-^(T-4CC.)*(3.5C6-3.5u:)/140. 
IF  (T  .GT.  540.  .AND.  T .Li.  530.) 

CC4)=3.506*(T-540.)*(3. 513-3. 5C6)/9C. 

IF  (T  .GT.  630.  .AND.  T .Li.  720.) 

C(4)=3.513*(T-c 30. )*(3. 525-3. 513)/90. 

IF  (T  .GT.  720.  .AND.  T .Li.  510.) 

C(4)=3.529^(T-72C.)*(3. 552-3. 5l9)/90. 

IF  (T  .CT.  SIC.) 

C (4)  = 3. 532*(T-6 10.)* (3. 533-3.552)790. 

C (4  ) = C ( 4) * . 0 703935 

IF  (T  .L£.  540.) 

U(4)=.34+(T-400.)«(1.075-. 34)7140. 

IF  (T  .GT.  Sf.O.  .and.  T .L£.  720.) 

U(4)  = 1.C75*(T-540.)*(1. 34-1. 075)7150. 

IF  (T  .GT.  720.) 

U(4)=1,34*(T-720.)»(1. 575-1. 34)7150. 
j(4)=L’(-)*1.1132£-5 


IF  (T  . LE . 5 3C  . ) 

1 b (4)  = 1 
IF  (T  .3T.  55C.) 

1 i(4)  = l.4-f(T-53  0 .)*(i.3bH5-1.'.)/370. 


IF  (T  .l;.  5iO.) 

1 Ftc(i)  = .;E5’-(T-‘*0C.)*(1.G£7-.i25)/1iC. 

IF  (7  .'T.  5^0.  .AND.  T .LE.  7EG.) 

1 F'<'(4)=1.0S7-(T-5AO.)-(1.3?5-1.0®7)/ljO. 

IF  (T  .37.  7:o.) 

1 FK{a)=1.335+(7-’20.)»(1  . 665-1  . 3S5)/13C. 

Fif(A)  = F<(4)».C13>.2/36  0C. 


CF>  = C. 
0A»"=G  . 
G A i’'  = 0 • 
'J '-  = 0 . 
G''U=C  . 


DO  11  1 = 1,  \ GAS 
s ( I ) = i . '‘*7^  ( : ) .1 . « 

X C : ) = F \ / F 7 

G'‘u=Gr-G*A(:)'«,.'^(:) 

DO  50  1=1,  •,  GAS 

c'.  (i)  = x(i)-w'-(:)/3*‘u 

CCrrp.cv.  (2),C(I) 

DAf'  = C';(i)»c(:)/:-c:)*DAv 

21  = '^. 

ZZ=  C. 

DC  ^ J = 1 , G A s 

IF  (J  t.  I)  GO  7C  12 

P = 1 . 

Av=1  . 

GC  70  2° 

D = X ( J ) / X ( I ) 

E = D S«F!7  (S  ( I ) *5  ( j ) ) 

J F = 'J  ( I ) / J ( J ) 

-.A 1 = c:gs7  ( 5 . « ( 1 . *w/,  ( I ) / ( J ) ) ) 

wf=(w'^{j)/,i'1(I))*»,25 

P = D*('>.*DS':'17(LP)*wS)**2/-R1 

A-'=.25»D»(1.-CS0A7(UR*i«':**3*(7*S(I))/(7  + S(J))))**Z»(7a-E)/(7- 

21=21*P 

Z2  = ZZ*  A-' 

CCN7IMJE 
Z 3 = Z 3 * F f ( I ) / z 2 
!J''  = UI*'+Ij  (I)  /Z1 
C 0 N 7 I N L'  E 
3A?f  =GA  V / D 4,v| 

?R=CP*0"/Z3 
RE  7USN 
END 


SO) 


'lAChCDEL'^,  MI’', 

To,fn,cp) 

r-'FLICI'^  PEAL*g  (■i-H,0-Z) 
D:>iHNSICN  F\CA) 

DATA  KO  /6/ 


«PITc(6,in?CG,TG,6A,'' 

11  FOR’''AT(1hO,3X,'FOG=',E15.7,5a,'TG=',E15.7,5 
PG  = ?CG/TG**(GAi'/(gA1'-1,)) 

TG=TOG/TG 

F'  = WG*DSQRT(TG/(GAK*G''U))/(20.777A*PG*A) 
a/RI  TE  (6 , 1 2 ) PG,  TG  , F^ 

12  FOR''AT(inO,3>,’Po=',E15.7,SX,'TG  = ',El^.7,5X 
CALL  GASPCTGtFN.GAM.CPtDUrtDUMtl.lU) 


E IN  ,'IACH  NO.  SU'^KOUTIN 


return 


SL'cROUTINE  AirpCTAME,  PAIE,  T,  Rm,  P,  AIAl,  CPA,  GAM,  AML) 
Implicit  real*:  (a-h,o-z) 

T2  = DEXF(-3c,a';a72*.10E7402*TA''5-.67AefAE-A*TA«'B*TAM=) 
wF  = Ph*1A. 016*12/(2:. 9tc*(PA'AS-T2)) 

T2=T*T 

P=.  5552  + .13Ac3JE~2*T-.031E~A*T2*.20e66E-i*T  *T2 
A*'U=1.E-5*.175E-7*(T-aO0.) 

C‘=A=,2<.21-.DG13E-2*T*2,E-d*T2 
3t>!A  = CPA/(CPA-.  0 665343) 

CPW  = ,4:09— , 305*.:  — 2*T  + .CCOcE  — 4*?^ 

G am ’;,=  CF«/(CP*-. 11022) 

A = w F*CPW 
a=(1.-uF)*CPA 
CFA=WF»CPW*(1.-»F)*CPA 
GA*  = (A»a)/(A/6A’<«*a/GAVA) 

A‘'L=13.016*,<F*2S.9o6*(1.-wF) 

RETURN 
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S(jf50uriN£  ui:;o(T,  fg,  ■j.'i,  cp) 

I'^PLICIT  ^cAL*:  (i-H,0-Z) 

C=T/1 .fc-Z'3 . 

F = F G » F G 

:p  = 1.-.A65»f^-.:.(.0C,115-.CG10  5*(1.-FG')**3.05  9^-) 

SF  = 13C1./(';93.33+5.')?53’«(C-ZG.)*.0u5S?*CC-Z0.)«*Z) 
J‘’’=DEXP(-3.0117A’-.A?Z-.  7*FG+(Z.30c54*1.1£556*FG+.£Pd*F)»SF) 
FK.  = 13P.-;Z-.9l6o^«fG*1'’.916t.7»F 

F<  = 1.*(F<-c*(1o'‘.  .-160.c833’'FG  + ‘.9.0a32*F-FK)/10  0.) 

U -i  = 3 . 0 1 A i;  3 1 

PR  = 1.CS3»ur-'*CP/FK 

jv=Uy.*  . "C0t72 

RETURN 

£';o 


SL^FCUTINF  SirGCA,  5,  N,  <S) 

I'-PLICIT  R£AL»i  (A-H,C-Z) 

SI'^G  SOLVES  A SYSTE''  OF  LINEAR  EQUATIONS  AY="- 
INPUTS 

A - MATRIX  OF  CCE'^FICIENTS  STORES  COLUr-IN^ISE.  DESTROY'^S  IN 
CC^‘~LTATICN  . 

3 - VECTOR  OF  ORIGINAL  CONSTANTS.  DESTROYED  IN  CO''PUTATION 

solution  is  returned  in  E 

N - NLN"3ER  OF  EQUATIONS  AND  VARIABLES 

<S  - OUTPUT  FLAG  0 = NORyAL  1=SiNGULAR  SET  0 <=  EQUATIONS 

Dir-ENSION  A(1),  dCI) 

FOR..ARD  SOLUTION 

TCL=0.C 
<S  = 0 
J J = -N 

DO  E 5 J = 1 , N 
J Y = J*1 
J J = J J + N * 1 
3 I 6 A = C . 0 
IT= JJ-J 
DO  !C  I=J,N 


search  tor  T!;xi“b''  coefficient  in  column 


If  (:/»  = S(-;iGA)-DArS(A(lJ)))  ZC,3a,3G 
3 IG  A = A ( IJ  ) 

I-'A  x = l 
CCNTI'.U' 

TEST  FC-  =:VOT  LESS  THAN  T0L£=^ANCE  (SI-j3ULm=?  •' A ! X ) 

IF  (DAES(=lGA)-TOL)  35,  35,  hO 

K S = 1 

RETURN 

interchange  ro*s  if  necessary 

I1=J+N*(J-2) 

IT=  I>’aX-J 
DO  5C  A=J,\ 

1 1 = 1 1 - N 
:3=I1*IT 
S A V E = A ( I 1 ) 

ACi'')=A(i;) 

A ( I ?) =SA  V E 


DIVIDE  EDUa'FICN  oY  LEADING  Cw'cFFICIENT 

A(I1)=A(I1)/ri;A 
S A V E = ; ( I A X ) 

3 ( I '’AX  ) = 3 ( J ) 
i(j)=SAV£/EIGA 

eli‘''In«t:  next  variasle 


IQS  =N* ( J -1 ) 

DO  55  IX=JY,,N 

IXJ  =IQS*IX 

I T= J-I X 

DC  60  JX=JY,N 

IXJX=N»(JX-1)+IX 

J JX=IXJX+IT 

A(iyjX)=A(IXJX)-(fl(IXJ)*fi(JJX)) 

3(IX)=5(IX)-(=(j)»A(IXj)) 

oAC<  SOLUTION 

NY=N-7 

IT=N*N 

DO  : 0 J = 1 , N Y 
IA=  IT-J 
13  = N-J 


IC  = 'i 

DO  '.C  !<.  = 1 , J 

^(I?)=5(I=)-A(I£)*=(IC) 

I i = :a-n 

ic=:c-i 

9 E T CRN 
ENC 


bUsROUTlNE  OuTHUT 
I’^PLICIT  9EAL*C  CA-H,0-Z) 

DIMENSION  a c c 1 1 ) , a c G ( in  , o f c ( i n , c = c p ( 1 1 ) 

DIMENSION  VGiin,  aG(in,  pp(in,  pd(ii),  rogcid 

COM'^CN  /VAR/  TCiGf  T02G,  T06G,  ly^G,  T1,  T2,  T3,  TA,  t6,  tS, 
A T10,  T1A,  T16,  T1=,  T20,  TA2,  TOsG,  T?, 

3 T03G,  TO-G,  T05G,  T09G,  T 0 1 0 , T011',  T5,  T>,  Til, 


c 

T12, 

T1  3 , 

T1 

Z 9 

T17, 

T 

n,  TIG 

, T 

ZG 

, T3G 

, T 

45 

9 

T5G, 

TFG  . 

T73, 

teg, 

nn 

T1 

33, 

T1  1 3 

9 

TA1  , E 

nt 

f 

"^01  G , 

FO 

Z 0 

9 

PC 

7G 

9 

=>C  4 

3,  P05 

G 

E 

F CcG 

f 

FC7G 

, 

F Oi 

3,  PC 

•z 

G , pon 

H , 

PCI  1 G , 

PIG 

9 

D 

2 

p. 

P 

3G 

, F 

‘•n  P3 

c 

p 

° c3  , 

°73  , 

M r 

G , 

Fy  G , 

F 1 0 G , P 1 1 G . 

r 

(20)  , 

A C 

(2 

r- 

•J 

) 

9 

VC 

/ ** 

V.  c 

C)  , 

cvi  1 , 

'i 

r ' 2 , 

d;3  , 

f 

4, 

'^'^5  , 

F 

V 6 , F 7 

, F 

V A 

, F '•'  9 

, F 

■> 

9 

r 

1 

•1 

9 

A ( 

in, 

H 

G a '!  I 

, GAM 

ZG 

♦ W 

A >■  3 G , 

3A  VAG  , 

G A "I 

33 

, GA»^ 

6G, 

C 

fl  ,v 

o 

, 

G A 

« H f; 

, GA  M9 

G 

I 

6 A r 1 G 

3 , 6 A 

MIG, 

TGTI 

9 

T G M 1 I , 

T 3 

''3 

, Tvi  A 

, G I " U 

9 

G I I 

V.j 

, G 

i-'U,  AM 

1 

peGI 

» 

j 

P=GI 

I 

, P R 5 

7 

- » 

PK 

A , CP 

G 

I,  CPGl 

J-  , 

CF 

G3 , CPA , 

T 

V 

1 

9 

TV 

T T 
« 4. 

, T 

Mil, 

T 

1 

Z IMU 

* 

2 I I M 

U 9 

7 1 

''U , Z 

v; 

0 , 

< 

r 91  , 

°RI  I , 

p 

I , PP 

9 

CF  I , C 

FI  I 

9 

C P 1 1 1 

, C 

P, 

GI 

9 

C3 

! I , 

pG  I : I 

9 

1 

GA  , G I 

f 

3 I I , 

’■J 

: 1 1 

, 3, 

EGI, 

L 

R EGI 

I 

, REG 

^ E 

A , RE 

I 

, R E I I , 

R E 

I I 

I , RE 

, G 

FI 

9 

C-F 

II 

9 

3 F I 

i I , 

COM''o%/vA  = B/ 

A F 

9 

F I 

9 

r T 

I, 

F. 

n I , 

G JII 

1 

GJ  I I 

I , 

A J 

, Z J I 

f 

Z J 1 1 , 

z J : 

1 1 

, 2 J , 

HG 

♦ 

9 

H 

C-I 

I , 

r» 

611 

I , H A , 

1 

rt  : , 

H 

:i,  Hii 

^ 9 

H , C G 

A 

, Coll, 

C ‘-J 

1 1 

I 9 

CA, 

c 

! , C I I , 

c : 

II,  c 

9 

ul , u I 

* 9 

UI 

II,  u 

, A 

0 I 

9 

A o 

1 1 

9 

A6I 

II,  AA 

9 

TUM 

t 

TUMI, 

TUMI  I , 

TUN  , 

0 

T Oh  I 

» 

TC«  I 

I, 

TOWi,  TOW,  EPSI 

9 ^ 

PSII  , E 

PS3 

9 

c 

PSA 

9 

ESSI  , 

- SSII 

9 

1 

ESS3 

9 

ESS  , 

w 

^ 9 

a c G , 

aCCRR 

f 

, alt 

9 

PAT , PA2  , 

RH,  CN ( A) 

t 

EFFL 

P, 

V I . V T M 

F I 3 A 

9 

H 1 M , 

C l1  M 

, WT  1 M 

, DC*  , 

ELFR  , 

BLPRM  , 

CP 

o 

9 

c 

op 

y 

9 

P ' 

PPM 

9 ^ • 9 

c; 

R 01  , 

FL<  * , 

H 

I , 

W I I , 

A 

III,  w= 

9 

9 

W V 1 , 

4 9 

E 9 

W S 9 

y A 

, 3 P , 

S 

a ■•*, 

V 1 , 3 V - 

, S 

s,  as 

9 

C F23, 

C F3 

^ f 

C FA3 

f c F7 

9 

r 

C M 

^ , 

C ■ 

MO  , 

COv,V(^>.  / V A |?C  / C F 1 1 1 , ATAP,  Hi,  ClI,  wTI,  ACN(2C),  DC,  DL(a), 
A DH(A),  D-(A),  DDHG(A),  DALo(4)*  DAFCACA),  OSIG(A),  DDEl.(A), 

3 DA(0,  Cn(3),  DSlCA),  DSI(A),  DiLF(4),  00^(4),  CCNVdf),  DEL'’ 
C SOLIM,  OLIM,  FG,  TITL£(26),  Dp,  DPI,  DPII,  DPlIl,  PPP,  PPR'^, 
D TAIC,  RHP,  TIGM,  DKH(A),  ETIG,  ET02G,  ETC6  3,  £TO'’G,  ET1, 


c 

ET2, 

ET3  , 

£T4,  rT6,  ETi,  ET1C, 

ET1 4 , ET1 D , ET1 S , ETZO  , “TAZ  , 

1 

E ■POSG 

, £T7, 

F 

t=F’  , 

C»,A  , 

D'^iPCw^f  GuI,  UOII, 

'.Din, 

1 ^DA  , '^VI'',  3RPM,  VLIM  , POA1  , 

G KOA2,DAFAL(4),DSLL(A),Ae(4) 
CO''''CN/VARC/aC,aCG,C?2,CP6,w5,C?3,CPl,FIII,T'JN3 
COM'^CN  /IVAR/  NTA«,  NDSGN,  NCS,  K I , <0,  NCn,  NP(4),  NFULL, 


»KlTt(<O,1(j0Z-^'‘'IIfCP2.CP6,T6,T:,w3,C'’3,CFl,T3,T1 
J2i  FCk-'-at  (lHO,3x,'*:i  = ',t1Z.6,5x,'C='2  = ',£15.7,5x,'C=’6='Pl5.7,5x, 
1'Te  = ',i'5.7,//Ax,'T2=’,El5.7,5X,'W3='El2.6,5x,'cP3=’,£15.'’,5x, 
2'CPl=',E1:.7,//4X,'T3=',£15.7,£x,’T1=i,£15.7) 

«PITE(X.C*10  0c.7)jt'II»i0A 

OiP  FCP-'AT  (lKO*3x,'^DII=',El2.e,5X,'i;DA=',El2.6) 

«PITE(xC,1G1)  title 
- 7 I T£ ( <0 , ^CO  ) 

-C'J  FGfi'^AT('0  INPUT  LIST'/'  CAvITY  • LASER  S =t  C I F 1 C A T I 0 N S ' / 


1 

f 

D 

ESCRIPTICN',24X,' 

N A .Y  E 

VALU 

C 

UNITS') 

-.R  I TE  (NO 

, 403  ) 

FI  oA 

40  3 

F 0 P.  V A T ( • 

INLET 

PRESSURE  ' 

, 1 2 ( ' . ' 

) , ' PI 

c A 

',rl2.6,'  ATM' 

v*PI  TE  (<C 

,404  ) 

Hi  M 

4U4 

formatc  • 

INLET 

he IGHT  ’ , 1 

3 ( ' . ' ) , 

' HI  V 

1 

f 

C- 1 2 . 4 , • C V • ) 

'«PI  T£  CKO 

,405  ) 

.V  T 1 M 

4 .'5 

FOR  VAT  { ' 

WIDTH 

IN  FLOW  DIR 

ECTION  ' 

, S ( ' . 

' ) , 

'w'^’lv  ',Gl2.t, 

1 

* r N‘  • 

) 

A R I T £ ( K 0 

, 40o  ) 

CLi  V 

0 1 

FOR  VA7  ( ' 

length 

' ,16(  ' . ' 

) , ' C L 1 V 

' ,G1 

2.  t , 

. G V ' ) 

A R I T E ( K 0 

, 403  ) 

DC  V 

4 : ; 

FO  H vat  ( ' 

INLET 

HYDRAULIC  D 

I A I*'  t T E ^ 

' ,7( 

1 • 

• 

) , ' D C ' , G 1 2 . 

1 

1 Gy* 

) 

«RI 7£ (x  ; 

, 40  7 ) 

P L x w 

-.07 

fcrvatc  ' 

LASER 

C U T c ij  T P 0 w E 

K • . * 

, 3 ( ' . 

' ) , 

' P L K w ' , 1 2 . t , 

1 

' X.V  ' 

) 

WR I T£ (KO 

, 401  ) 

e-flp 

401 

F 0 R V A T C ' 

LASER 

EFFICIENCY 

' , 1 1 ( ' . 

’ ) , ' 

EF  fl 

= ' ,S12.6, 

1 

• ^E  F 

CENT' 

) 

>*'^IT£(k;C,L09)  NDS'N 

hGv  F0P''AT('  OtSlSN  OPTION  '),'NCSGN  ',I7,5X,' 

CNDSSN  .NE.  3)  GO  TO  JO 
*(RITE(KC,i10)  NC3 

410  FOR'-ATC'  •JU.''3ER  OF  AREAS  (N0SG;j  = 3)  ',7('.  '),'NCS 

1 I 7, 5X  , ' - ' ) 

;<R:T£(K  0,411)  (ACN(K),K  = 1,NCS) 
wll  FOr-AT('  areas  ',17('.  '),'ACN  ',6(G12.4,1x), 

1 3(51x,0(ui;.c,ix))) 

*PITE (K  ",41 7 ) 

413  FCR"AT(d3X  , ' FT**c  ' ) 

50  /,RIT£(XC,413)  F*g 


-.13  FOk-'A^C'  gas  «*IXTL’RE  ',1-.('.  '),'rN 

1 ’ PE  TO  N2  TO  C02  TO  CO') 

.xPIT£(<0,414) 

ul4  FGR’'AT('0IMTIAL  estivate  of  STEADY  STA^e  QUANTITIES', 

1 35X,'IF  = 0. .USES') 

«F I T£ (nO, 41 5 ) ETI  G 

415  FOFvaTC'  gas  static  TE.^deRATjce  - station  1',3('.  '),'ETIG 

1 G12.C,'  DEG  R',10X,'Ta1  - 20.') 

4RITE(xO,41;)  £T02G 

..It  fCkvaTC*  gas  total  temperature  - STATION  2 ',!C'.  '),'ET02i3 

1 G12.t,'  DEG  R’,10X,'Ta1  + 210.') 

-AI'^’E  (K'',4l7)  ET06& 


417 

FOR  •'AT  ( ' 

GAS  total  TE'^PERATURE 

- STATI 

ON  6 

' , 3( 

1 

• 

• ) 

'ET066  ' 

1 

G 1 4 • t f 

1 

DEG  R',1Cx,'TAl  + 30. 

’ ) 

"RITE (kC 

,413)  E'^O^G 

-.1 A 

FOR  -'AT  f ’ 

GAS  total  TE^'PERATU 

R r 

- stat: 

ON 

1 

• 

• ) 

•ETO^G  • 

1 

b 1 t • 6 » 

1 

DEG  o',1Cx,'Th1  .■  7G. 

’ ) 

«PI'"£(<0 

,419)  ET1 

« p : Tc  ( K ^ 

,42 

C ) ET2 

«RITE (kO 

, 4 2 

1 ) £T3 

I TE  (<0 

,42 

2 ) ET4 

wR  I ■'£  ( <0 

, '♦A 

3 ) ET6 

^RIYc(<0 

, 42 

4)  ET5 

-JRI  (KO 

,425)  ET10 

«RITE(kO 

,42 

6 ) £T1  4 

WRITE (KO 

,42 

7)  ET16 

-.RITE  (KG 

,42 

E ) E T 1 S 

write(ko 

,429)  ETEO 

..  R I T £ ( < c 

,1429)  ET7 

■*1  9 

FOR-'AT  ( ' 

COOLANT  te'^PERATURE 

- 

STATION 

1 

' , 3( 

1 

• 

' ) 

' ET1 

1 

c 1 4 • 6 f 

DEG  R',10x,’TA1  + 2C. 

' ) 

4 2 0 

FOR  v;^T(  ' 

COOLANT  TEvipERATURE 

- 

station 

4 

' , 3 ( 

1 

• 

' ) 

' ET2 

1 

G 1 4 • c T 

DEG  R',lCX,'TAl  ♦ 20. 

' ) 

-.21 

F C R '•  A T ( ' 

coolant  TE’^'PERATURE 

- 

3 T A T I 0 N 

3 

' , 3 ( 

1 

• 

' ) 

' ET3 

1 

G 1 2 . 6 t 

DEG  R',10X,'TAl  T 40. 

' ) 

4 2 2 

FOR  •'AT  ( ' 

COOLANT  TEMPERATURE 

- 

station 

>♦ 

' , 3 ( 

1 

• 

' ) 

• ET4 

1 

G 1 2 . 6 , 

DEG  R',10X,'TA1  + 55. 

• ) 

^23 

format  ( ' 

COOLANT  TEMPERATURE 

- 

STATION 

6 

' , 3 ( 

1 

« 

• ) 

’ ETs  • 

1 

G 1 2 • 6 f 

DEG  R*,1Cx,'TAl  + 3C. 

' ) 

1429 

FOR  ''AT  ( ’ 

COOLANT  TE‘'PERATUR£ 

- 

STATION 

7 

' , 3( 

1 

• 

• ) 

'ET7 

1 

G 1 2 . 6 » 

DEG  R',1CX,'TAl  ♦ 20. 

• ) 

4 2 4 

FOR''AY(  ' 

COOLANT  TE''PERATUR£ 

- 

STATION 

6 

' , 3( 

1 

• 

' ) 

' ET6 

1 

G 1 c • c f 

DEG  p',10x,'Ta1  + 65. 

' ) 

425 

FOR  ''AT  ( ' 

COOLANT  temperature 

- 

STATION 

10 

’ , 3 ( 

1 

• 

' ) 

'ET10  ' 

1 

G 14 .t , 

DEG  R ' , 1 Ox  , ' TAI  ♦ 65  . 

' ) 

426 

F0R''AT(  ’ 

COOLANT  TEMPERATURE 

- 

STATION 

14 

' , 3( 

1 

• 

' ) 

'ET14  ' 

1 

G 1 4 . 6 , 

DEG  R' ,10x, 'TaI  + 30. 

• ) 

427 

FORMAT ( ' 

COOLANT  temperature 

- 

STATION 

16 

' , 3( 

t 

• 

' ) 

'ET16 

1 

G 12 .6  , 

DEG  R' ,1Cx,  'TaI  t 75. 

• ) 

42£ 

FOR  ''AT  ( ' 

coolant  temperature 

- 

STATION 

13 

' , 3( 

1 

• 

' ) 

'ETIf  • 

1 

G 1 4 • c t 

DEG  R',10X,'TAl  + 65. 

• ) 

4 2 9 

F o«  ''A  T ( ' 

COOLANT  TEMPERATURE 

- 

S T A T I 0 

20 

' , ’ ( 

1 

• 

' ) 

'ETZO  ' 

1 

012.6. 

DEG  R'.ICX.'TAl  + 65. 

' ) 

wRI^E  (,<r 

0 ) a T A 2 

430 

F0R"AT  ( ' 

AIR  TEiMPERATURE  AFT 

E R 

RADIATOR  ' , 

4 ( ' . 

t 

) , ' 

t 

TA2  ' , 

1 

G 1 4 • 6 f 

DEG  R ' , 1 Ox , ' TA1  + 30. 

• ) 

I TE ( KO 

,431)  EBPR 

431 

FOR  *'AT  ( ' 

BLOwER  PRESSURE  RATIO 

' , 9 ( • . 

' ) , ' EBPR 

1 

,G1 

z 

.6, 

1 ' - ' , 1 , • 1 . 1 7'  ) 

TE(K0,4J2)  EvI’^ 

uZ'c  FCk’^ATC  I met  velocity  ’.IEC.  'It'EVIM  ',G12.6,'  m/SEC, 

1 1 5x , ' 1 2G  . ' ) 

«rItE(KC,432) 

l32  FCi5''AT('OCOOLlNG  SYSTE^:  FLOWS') 
wPlY5(K.r,433)  wl 

h33  FOR-^ATI'  HEAT  EXCHA\GER  1 ( L 1 0 U I D ) ’,7('.  '),'wl 

1 GlE.t,  ' La/SEC  ' ) 


*"ITE (KC,^3i)  -I : 

FC  ^£1T  £*CWA\uE3  £ (LIQUID)  ' • . ')  ,’Ull  ', 

1 c- 1 : . t , • L c / 3 s ; • ) 

™fit£(k:,ijCv)  .:i: 

1 C 0 c F ■:  R v A r ( • M £ s T i » c - A ■■  :•  t F 3 (liquid)  ' ) , ' w 1 1 1 ' , 

1 1 2 . t , • L i / L E c ■ ) 

-35  FOk-'AT(’  ''IRRC-*  ',13(*.  '>,'W5 

I 3-Z.;  , ' Lr/5EC  ’ ) 

Hit  fCR-'at('  " ''I'Jkc^  ’ . '),'«r 

1 u1Z.5,  ' L3/3EC  ■ ) 

^*^ITE(<C,A37)  «V1 

u37  FCR-mK'  vacuum  pU'-p  1 ’ , 1 2 ( ' . ’I.'WVl 

1 GIZ.t  , • LE/SEC  • ) 

wRiTE(<C,43S)  mMc 

i»3;  rOR^'ATC*  VACUUM  o U M ? 2 ' , ^ 3 ( ' . '),'WV2 

1 G1Z.t,  ' L = /SEC  ' ) 

WRITE  (k:C,a3Q)  »' 

^3?  FCRv^TCi  E-5£RM  '.Icf'.  '),’V£ 

1 C1Z.6,'  L5/5EC') 

AFI'£(<0,i^O)  «S 

uAC  f:r-'‘at('  Sustain £r  ',ii('.  '),•„$ 

1 GIZ.c,'  LB/SEC’) 

"FITt (kC ,A41 ) CwA 

441  f:r''at('  ccfrected  fan  flow  (aip)  '),'cwa  *, 

1 G 1 Z . t , ■ C F''  • ) 

wRITE(kC»443) 

w4£  FOR''AT('GSP£CIFICATICNS  OF  BLOwERS') 
wR:T£(kO,442)  ATAP 

w4Z  F0R"'A‘^('  SLCwER  POLYTpCpiC  EFFICIENCY  ',3('.  '),'ATA= 

1 G 1 Z . 6 , ' - ’ ) 

wRITE(<0,446)  PRO'' 

44£  FCk''AT('  BLOwER  speed  •,'I3('.  'I.'BRPM  ',E12.6,'  R°M') 

wR  I tE  (K.C  , 447  ) N9S 

447  FOK'-'AT('  number  OF  BLOwER  SETS  ',Q('.  '),",PS  ',i6,6X, 

1 ' - ' ) 

wRITE(^0,443)  NBFS 

442  RCRmaTC'  number  of  bLOwERS  per  set  ',7('.  '),'N?PS 

1 I i, t X . ’ - ' ) 

wRIT£(ko,543)  VLIM 

543  FCR''AT('  inlet  velocity  TOLERANCE  ',7('.  ’),'VLir 

1 G1Z.O,  ' M/ScC  ' ) 
wRIT£(<C,444) 

444  FOR '•'rtT  ( ' GTUNNEL  AREAS') 
wRITEC<0,443)  a 

443  FOR'-A-'C  STATION  1 TO  STATION  11  '.«('.  '),'A 

1 c(1x,'12.3  )/50x,5(1x,o1Z.3  ),’ft*-Z') 

wRI  •'£(<'', 100) 

-RIT£(KO,131 ) TITLE 

wR I Tt (KO , 5 0 0 ) 

50C  FORvatC'O  input  LIST  (CO NT.)') 
wRlT£(KOf501 ) 

501  FORMATC  -OhEAT  EXCaANSEr  S P E CI F I C A T I ON S ' , Z 2 X , ' p x C H 1',4x 
1 'EXCh  2',4X,  'EXCM  3', OX,  'RAD',  3x,'U NITS') 

*RIT£(^o,502) 


272 


-(•5ITE(^0,5C3)  dl 

FCh''AT('  CORt  L:\>T  i (GAS)  ' DL 

1 4 ( £ \ , ■-  1 : . 3 , 2 X ) , ' r T • ) 

(xC, 50^)  DM 

5 'O'.  FCR’^ATC'  CORE  riEIC-HT  '),'Dh 

1 L(ZX,C12.3,ZX),’FT') 

r*.  I T L ( ^ ■ -'  f 5 0 5 ) L/  w 

505  FCR'-ATC-  CORE  «IDTH  (LISUIO) 

1 A(2X,G1Z.3,2x),'FT*) 

« R I TE ( KO , 5 06 ) COnG 

506  FCR‘'AT('  hydraulic  diameter  (GAS)  ',7('.  '),'DDhG 

1 a(2X,G12.3,2x),'FT') 

xRITE (KO , 5 07  ) DAL6 

507  FOR‘'AT('  SURFACE  AREA  / VOLUME  (GAS)  ',5('.  '),'DALG 

1 A(2X,'12.3,2X),'1/FT') 

«RIT£(kC,50S)  dAfOA 

3 0;  FCR--’A'('  RIN  area  / SURFACE  AREA  (GAS)  ',  = ('.  Mf'DAFOA', 

1 H (Zx , G1 ? . 3 ,2X ) , ’ - ' ) 

V ^ I ~ £ ( < C , 5 0 9 ) D S I G 

5:9  FOR'"AT('  free  FLO*  AREA  / FACE  AFEA  (GAS)  '),'DSIG  ' 

I A(ZY,:i:.3,zx),’-') 

'*RIT£{<C,510)  DDEL 

£1C  FOR‘-AT(’  FI\  thickness  (GAS)  ’,1G('.  '),'DDEL 

1 A ( Z X , ' 1 2 . 3 , 2 X ) , ' F T • ) 

*RITE(K0,511)  DSL 

511  FOR''AT('  FI\  LENGTr-  (GAS)  ',11('.  '),'DSL 


1 a(2x,G12.3,2x),’ft') 

HRIT£(< 0,516)  DDH 

51;  FGR‘''’AT('  HYDRAULIC  DIAMETER  (LIQUID)  ',6('.  '),'CDH 

1 >.(2X,:i2.3,2X)  , ' FT') 

wRITE(<0t51A)  DALR 

51L  FOR'’AT('  SURFACE  AREA  / VOLUME  (LIQUID)  ',A('.  ’),'DSLF 

1 R(2X,G12.3,2x),'1/FT') 

w R I TE ( K 0 , 5 5 0 ) DAFAl 

550  FCh-^AT('  FIN  AREA  / SURFACE  AREA  (LIQUID)  '),  'DAFAl', 

1 A(ZX,£12.3,2X),'-') 

,=ITe(k:,515)  dsi 

515  FOR'«A'R('  FREE  FLO*  AREA  / FAC=  Afii^A  (LIQUID)  ',2('.  '), 

1 'OSI  ',h(2X,G12.3,2x),'-') 

*RIt£(X0,512)  da 


51  2 

FOR  -'AT  ( ' 

RIN  THICKNESS  (LI 

QUID)  ' 

,3('. 

■ ) , 'da 

• 

f 

1 

A (ZX , G1 2 . 3 , 

2X) , ' FT ' ) 

-RITE (KO,  5 51  ) 

DSLL 

551 

FOR  ‘•'AT  ( • 

FIN  length  (LIQUI 

D)  *'  ,1C( 

' . ' ) , 

'DSLL  ' , 

1 

A (2X , G1 2 . 3 , 

2X) , ' FT' ) 

*rIT£(kC,352) 

AE 

552 

F DR-'AT  ( ' 

PARTING  PLATE  TmI 

CKNESS  ' 

,5('.  ' 

' ) , ' A => 

t 

1 

A(tX,G1;*3, 

2X ) , ' FT  ' ) 

*PITc:(x:,5A1) 

N = 

SA"! 

F 0 R A "^  ( ' 

number  OF  liquid 

PASSES  ' 

C / • ) 

f . V • 

' ) , ' NP 

• 

t 

1 4(5x,:4,7X),'-') 

«RITE(< 0,513)  DXH 


273 


t- 


513  FOR-'*AT('  FI*.  THES’^AL  C C *,  0 U C T I V I T Y '),'D<n 

1 4(Zx,E12.6,2x),’5TU/h‘^-FT-0Ec  k’) 

» S I TE  ( ^ C , 5 1 7 ) 

317  FOk*'AT  ( ' OheAT  r;FuT  R A T c S ' , 3 9 X , • V A l U E UNITS’) 

.»RITc(KC,51?) 

51c  FQR'-'ATC  ',17('. 

1 2X,G12.6,2X,' 3TU/ S £C ' ) 

-«RI’‘t(<C,519)  aC'i 

519  fOR'^A^i'  '^IRROR  COMROl  ',12('.  ' ) , ' G C 

1 2X,G12.6,ZX,'-3TU/SEC') 

-RITF.  (KC,  320  ) O'" 

520  FOR^ATC'  ''IRROR  ’,16(’. 

1 2X,G12.6,2X,'5TIJ/SEC') 

-F I TE (KO  , 521  ) iVl 

521  FCR''A'('  VACUUM  PuMP  1 ',13(’.  '),'av1 

1 2x,S1:.6,2x,'9TU/SEC') 

wP:'^E(<C,522)  GV2 

5Z<.  FOR'^A'^C'  VACUUM  PUKP  2 • , 1 3 ( ’ . '),’Qv2 

1 ^ X,  :-1  2 . 5 , 2 X , ’ 5TU/ SEC  ’ ) 

«p:Ti(N:,523)  9' 

533  FOR'A^C'  E-=£AM  ',15(>.  '),’a£  *, 

1 2<,rji:.4,2x,'5TU/SEC') 


( ^ 0 

,524) 

as 

T(  ' 

C 

U S T A I N £ R 

1 

SI  2 

• 6 t 2 X t 

' 3 T ij  / S E C ' 

' ) 

(<C 

, 5 2 5 ) 

- ( ' 

0 D I F F U 

£E«  LOSS 

C 

(<0 

, 5 26  ) 

c 7 X 

.vk  I TE  (kC  , 5 27  ) C F3A 
52£  FCR''A'('  STATION 

1 2x,:l2.6,2x,'-') 

I TE  (<0 , 54a  ) C F 1 1 1 
«P I TE (KC , 531 ) CF910 
-xF  I TE  (KC  , 530  ) CF£9 
-.■RITE(K0,529  ) CF7  8 
»P1 T£ (KC , 52 2 ) C'A5 


TO  station  3 ',T('.  'I.'CFZ: 


527 

FOR  '"AT  ( ' 

STATION 

7 

TO 

STATION 

L 

’ ,7( 

'CF34  ' 

t 

1 

2 X , S- 1 2 

. 6 , 2 X , ' - • ) 

5 2: 

FOR  •''AT  ( ' 

STATION 

4 

TO 

STATION 

c 

’ ,7( 

' ) , 

■CF45  ' 

t 

1 

2 X , s 1 : 

.6,2x, '-' ) 

529 

F C R ■'  A T ( ■ 

STATION 

•7 

TO 

STATION 

M 

' ) , 

’CF75  ' 

f 

1 

t X , 3 1 2 

.6,2x, ’-• ) 

530 

FORMAT!  • 

STATION 

5 

TO 

STATION 

9 

' ,7( 

•), 

' C F £ 0 ' 

1 

1 

2 X , 3 1 2 

.6,2X, '-' ) 

531 

FCRxaT!  ' 

station 

9 

TO 

station 

1 0 

' ,7( 

' ) , 

•c  F91C  • 

♦ 

1 

2 < , S 1 2 

.6,2X, •-• ) 

5 4a 

F OR "A  T ( ' 

station 

1 1 

TO 

STATION 

1 

' ,7  ( '. 

•), 

' C FI  1 1 ' 

1 

2 X , G 1 2 

wPIT£(<C 

, 5 32  ) 

5 3 2 

F C R x A T ( ' 

OA.xgiErjT  CONOIT 

IONS 

, DECISION 

VARIABLE 

S , 

AND  CON 

w F R G L N C 

1 • TCLERANCES  ’ ) 
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-.PIT£(<c,  5 33  ) taif 

5 33  FOR''AT{'  A.'OEIEM  T£--'PES4TUR£  ' 

1 ’ : t F F • ) 

-vRITE(<j,53i*)  °?T 


'),'TA1F 


2x,G12.6,:x, 


53- 

F C R A T ( ’ 

Ay  El  ENT  PR  ES  SuR  E ' 

, 1 1 ( ' . • ) , ' 

= AT  ' 

, 2 X , G 1 2 

1 

' =s : A ’ ) 

wRITE(<0,535) 

RhP 

535 

F 0 F A T ( ' 

relative  h'JMI'AITY  ' 

,1 1 ( ' . ■ ) , • 

RHP  ' 

, 2 X , G 1 2 

1 

. dcccENiT  • ) 

*R1 T£ (K ; , 5a2  ) 

F 3 

5 ^ Z 

ACR  -"AT  ( ' 

FRACTION  CF  GlYCOL 

IN  COOLING 

LIOL'I  D 

. pg 

1 

C12.C,  ■ - 

• ) 

I ■^E  (KO  , 5 26  ) 

N L I Y 

536 

FCR'-AT  ( ' 

VhXIYUY  VLf'SER  OF  LOOP  CYCLES 

',5C. 

' ) , 'NL 

1 

5X, 13, 6X, 

' ) 

.<R:TE(<  0,537) 

“LI'- 

537 

F 0 R - A ’ ( ' 

PRESSURE  tolerance 

’ ,1C( • . ' ) 

, • p L I r-i 

' , 2 X , G 

1 

' PSTA  ' ) 

-.FI  TE  (<'  , 53  3 ) 

DEL  • 

5 3c 

F 0 R A T ( ' 

■ -'  ) 

wRI te (<o  , 5 3 9 ) 
F 0 R A T ( ' 

YACh  NU'^EER  TOLcRAN 

CE  ' , P ( ' . ’ 

) , ' DEL 

. 2 X , 

5 5 9 

R 0 L I Y 

DENSITY  -^CLERANCE  * 

,1  1 ( ' . ' ) , ' 

ROL  I'*  ’ 

, 2 X , Gl  2 

1 

' LE / Ft»*3  • ) 

-.RITE(<0,5a0) 

C 0 N V 

5^0 

FOR  '^A  T ( ' 

state  variable  tgle 

R ANCES  ' , 7 ( 

* • 'i 

• ^ * 

' C 0 N V ' 

1 

5 ( 2 X , 1 2 . 3 , 

tc(/!^'»/X*5(2Xf  'oTZ 

. ? , 1 X ) ) / 5 0 X 

f c X f '2  1 

2.3,2X, 

S2X, 


2 . t , 2 X 


6 , 2x  , 


2 ' D £ 5 K ' ) 

I te  (.'^O  , 1 30  ) 

: 0 »<  •'  A T ( • 1 ' ) 

title 


FOR  '' 

call 

AT(21X,lL40) 

G A S ? ( T I G , F N , 

G A I G , 

•J 

A-  t 

2 , 

2, 

G Y U ) 

CALL 

G A S P ( T 2 G , 

FN, 

G A 2 G , 

4.  V 

2 , 

i.  f 

G Y U ) 

CALL 

GASP(T36, 

FN, 

GA''3G, 

2, 

•J 

4.  f 

2, 

G'*U) 

call 

GASP ( T46, 

FN  , 

GAY4G  , 

4-  t 

2 , 

2, 

G Y U ) 

CALL 

3 A S P ( T 5 G , 

fn  , 

G A 5 G , 

T 

4.  ♦ 

■7 

4.  f 

2, 

GYU) 

call 

GASP(T6G, 

PiN  f 

GA’^tG, 

2, 

- ♦ 

2, 

GYU) 

call 

GASP (T7G, 

fn, 

G A V 7 G , 

2 , 

7 

4.  t 

2 , 

GYU) 

CALL 

G A S P ( T 3 G , 

FN 

, G A Y * C , 

2 , 

7 

*•  » 

2, 

GYU  ) 

call 

GASP(T9G, 

FN 

, GA''9G, 

2 , 

2 , 

2 , 

GYU  ) 

call 

GASPCTI CG 

, FN 

, G A V 1 0 

G, 

4.  V 

7 

- f 

2,  GY 

call  ':^a:f(ti  i:-,  fn,  gai-iig,  z,  z,  z,  g/u) 

CC.‘.=3  2 . 1 74*1  £45.43/Gr'‘J 
VG(1)=F>'1*DSCiFT(GAMIG*CoN*TIG) 

V3(2)  = F'‘2*0SGPT(GA.v2G*CCN*T2G) 

VG(3)  = F''3*DSGPT(oA,v!3g*CON*T33) 

vGc4)  = F''<.*0SGKT(GAM4G*CON*T4g) 

v/G(5)  = F'-5*DSGPT(G4M5G*CON*T5b) 

VG(e)  = F-'o*DSQRT(GAr6G*C0,\*T6G) 

VG(i’)  = F''7*0SGRT(GAr’7G*CC,'4*T7G) 
VG(')=F'E*cSGRT(G6.'*IcG*CO\*T3G) 

V G ( = ) = r *'  9 * C S G fi  T ( u A Y = G • C 0 N * T 9 ^ ) 

VG(10)  = f>*10*CSGFT(GA»'1C6*CON*TiOG) 
vr-(11)  = FN.11*DS9RT('uAyiiG»C0N*T1lG) 

;C  2o  K,  = 1 , 11 
..C(K)=v:(K)*A(K)*EC.  . 
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*5IT£(<C,102)  alt 

1J2  ?:R''AT('0  altitude  '),1x,G12.6,'  (<  ?T)') 

rt-^ITE(KC,  103)  PAT 

103  ACk"AT('  A:''3IE\T  pr-SGUPE  ’.Icf'.  ' ) , 1 X , C-1  2 . 6 , ’ (PSIA)') 

*PI*E(KO,1o^)  TAIP 

FOK'-'ATC’  A,v,3i£\'^  TE'^PERATURE  ',15(’.  ' ) , 1 X , G 1 2 . 6 , ' (D  = G F)') 

-.RI  “^E  (KO  , 1 05  ) khP 

1C5  FCR'-ATC'  RELATIVE  mU.''IDITY  ’ ) , 1 X , 61  2 . 6 , ' (PERCENT)') 

■^PIT£(<'-',10'^)  FI  6 A 

i:7  FOH''AT('  laser  Ii\LET  PRESSURE  ' , 1 % ( ' . ’ ) , 1 X , C- 1 2 . 6 , ' (A^.vi)') 

TIG:''  = TIG/1  .3 
WRITE (kg, 10S)  TIGM 

105  FOR''AT('  LASER  INLET  T£wpERATURE  ■,13('.  '),1X,G12.6,'  (DES  x)') 

2= ( TC2G-T01 G ) /I . 3 
wRI T£ (<0 , 1 42 ) Z 

142  FORMATC  TE’-’PER  aTUR  E RISE  ACROSS  CAVITY  '),1X,G12.3, 

1 • ( D E ■ K ) • ) 

wRIT£(KC,1G5)  VI Y 

109  FOR^^ATC  laser  INLET  VELOCITY  '.lAC',  ' ) , 1 X , 6 1 2 . 6 , ' (Y/SEC)') 

w P I TE (K " , 1 1 0 ) PL<W 

lie  FoP'’AT(  • laser  output  POwER  . . ',13('.  'I.iXjGIE.a,'  (KW)') 

wRI'ECKOtlAllEFFLP 

141  FOR--’AT(  • lAS-R  EFFICIcNCY  '.ItC'.  'IjIXtcIZ.i,'  ('^ERC-NT)') 

aRtT£(i<;0,114)  wG 

114  FCR-’AT(’  LASER  GAS  YASS  FL0«  RATE  ',12(’.  ’),1X,612.6, 

1 ' (L5/SEC)  ' ) 

w=ITE{KC,115)  066 

115  FOR-'AT(  • VCLUYE  FlCw  RATE  Aj  cLOWER  INLET  ',8('.  ' ) , 1 X , C- 1 2 . 6 , 

1 ' ( C F Y ) ' ) 

wRIT£(<C,116)  SCORR 

11.3  FCR'-AT(  ' CORRECTED  VOLUYE  pLOw  RATE  AT  5L0w'E=  INLET  •,3('.  '), 

1 1X,G12.e,'  (CPY)') 

APITE(X0t139)  wA 

139  FCR''AT(  ' COOLING  A:R  FLOw  RATE  ',14('.  '),1XtG12.6, 

1 ' (LB/SEC)  ■ ) 

wRI'PE(K.C,140)  C'wA 

140  FORyaTC  ' COOLING  AIR  FLOW  RATE  ',14('.  '),1X,G12.6, 

1 • ( C F Y ) ' ) 

wPlTE(K0,11T)  5PR 

117  POR-'AT(  • BLOwER  PRESSURE  RATIO  ',14('.  ' ) , 1 X , 6 1 2 . t , ' (-)') 

wR I TE ( <C , 1 1 1 ) 6LPRY,  =lPR  ^ 

111  FCR-AT(  ’ BLOWER  POWER  PEa^IRED  ',14('.  ' ) , 1 X , G 1 2 . o , ' (KW)', 

1 tX, 612. 6, lx,'  (HP)') 

wRIT£(KC,112)  PPR*'",  PPR 

112  FOR-MT(  ' COOLING  POY?  PQwtP  REGUIRED  ',11('.  '),1X,G12.6, 

1 ' ('<'w)',3X,G12.6,1X,'  (HP)') 

wPI ’E (KO , 1 1 3 ) PFY,  PF 

113  FCK''AT('  cooling  FAN  POwER  REQUIRED  ',11('.  '),1X,G12.6, 

1 ' (<W)',3X,G12.6,1X,'  (HP)') 

wRI'E(X0,1C6)  FN 

lot  FOR-^'ATC  LASER  GAS  '’IXTURE  ',16('.  '),1X,p5.2,3('  TO',F5.2),2x, 

1 ' (HE  TO  N2  TO  C02  TO  CO)  ' ) 

wP  I TE  ( KO  , 1 43  ) G''’U 

143  FOR‘'AT('  -IGLECULAR  wEIGHT  OF  GhS  ',12('.  '),1X,312.6, 

1 ' ( -)  ' ) 

wPl’£(K0,11=) 
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I 


I 'EXCH  2 
FCR  -^AT  ( ' J 
I '-XCH  2 
TE (KO, 
F OR  ■'A  T ( • 

! ' ETu/h 

«FITE(<0, 
FGS  v-A’  < ' 

I • FSI  A ' 

*RITE (KC, 
F C R A T ( ' 
NF jLL=G 
IF  ( \ F J L L 
I Te  (KO  , 
FOR>IAT(  • 

I A ( G 1 2 • li 
aRITECxO* 
F OR  ''at  (32 
aRITECkO* 
FCR'’-AT(  ' 

! ' L 3 / F T 

* = I T E ( < :■ , 
^RI^ECkO* 
FOR  '-at  ( ' 

I A(G12.2 
WRIT£(<0, 
wFITE (KO, 
F C R '•  A T ( ' 

I <.  (G1  2 .2 
aRI te (<0 , 
WRITe(^^), 
FOR'''AT(  ' 

I *♦  ( G 1 2 , 2 
kRITECxc, 
R I ■'  =.  ( K c , 

FCR  TAT ( ' 

I A ( G 1 2 . 2 

« R I T£  ( K 0 , 
WRI te (KC, 
FOR  tat ( ' 

I A ( 1 4 * 2 
/.R  I ’■£  (KO  , 
X T£ (KO  , 
FOR  taT ( ' 

I 4 ( G 1 2 . 2 
^ R I TE  ( K,0  , 
*P I T£ ( <0  , 
F 0 R T A T ( ' 

I A (G1 2 .2 

* P I TE (K  C , 
»RI TE (no, 

FOR  TAT ( • 


aX.'EXCH  3*. 
',3X,'h£AT  EXCHANGER  VA 
',3X,  EXCH  3',5X, 

11A)  GDI,  ODIl,  aoill, 
HEAT  transfer  pate  ' 
P • ) 

120)  DPI,  DPII,  DPIII, 
LiaulO  PRESSURE  DROP 

) 

121)  nP 

Nu:»3ER  OF  LiaulD  PASS 

, .\£.  0)  return 

122)  TTI,  T'VIII,  TMII, 
1EA\  TEMPERATURE  ’ ,9( 

,3X),*  DEG  R') 

12  3)  T G M I , T G n 1 1 , T G " 3 , 
X , ' ( G A S ) ' , 1 0 X , A ( 0 1 2 . 2 , 3 
12A)  ZI  'lU,  2II"U,  Z3TU, 
VISCOSITY  '.loC.'),' 
-SEC  ) 

12  5)  G I M U , G : I T u , G 3 •'  , 
125)  PRI,  PRII,PRIII,FR 
PRANDTL  NUTAER  '.lU' 
;,3x) , ' -• ) 

123)  pRgI,  FRGII,  PnG3, 
12  6)  C .=  I , CPU,  C P 1 1 1 , 

SPECIFIC  HEAT  ',12('. 
, 3X ) , ’ oTU/LE-DEG  R ' ) 
123)  CPGI,  C°3II,  CPG:, 
127)  GI,  GII,  Gill,  0 
MASS  flux  ' , 1 5 ( ' . • ) , ’ 
,3X ) , ' LB/ FT»*2-SEC  ' ) 

12  3)  G G I , G 6 1 1 , G G 1 1 1 , 
123)  REI,  REII,  REIII  , 
REYNOLDS  NUMBER  ’,1'J( 
,3X)  , ' -'  ) 

123)  REGI,  RE6II,  REG3, 

129)  FI  , FII  , Fill  , F 
FRICTION  FACTOR  • , 1 0 ( 

,3X)  , ' -') 

123)  GFI,  GFII,  GFIII, 

130)  ZJI,  ZJII,  ZJIII, 
HEAT  TRANSFER  FACTOR 

',3X), • -■) 

123)  GJ I , GJ  1 1 , G J 1 1 1 , 

131)  HI,  HII,  Pin,  H 
HEAT  TRANSFER  COEF.  ' 

;,3X),'  I:TU/FT**2-SEC-DF 
123)  HGI,  HGII,  HGIII, 

132)  Cl,  CII,  CIII,  C 
fluid  CAPACITY  RAT?  ' 


AX.'RAD*.  Ax. ’UNITS’) 

kIA2L£S',1-.y,’EXC^  1’,3x, 
RAD',5x,  ’UNITS’) 

GCA 

,11  (•  . ')  ,2X,A(G12.2,‘'x)  , 


',10('.  '),2x,4(c-12.2,3x), 


;s  ',  = (',  ' ),2x,a(3X,  12, 2x) 


' . ' ) , • (LIGUI D) ’ , A( ' . ' ) ,2X 

TM  A 
X)  ) 

2 MU 

(LiauiD)',A('.  '),2x,A(G12. 


. ' ) , • ( L 1 0.  u n ) ' , A ( • . • ) , 2 X , 


( L I a u I D ) ' , *,  ( ' . ' ) , 2 X , 


. ' ) , ' ( L I a U I D ) ' , A ( • . ’ ) , 2 X , 


'.'),’ (Liau ID) ' ,A( ' . ' ) ,2X, 


,5(’.'),'(LiauiD)',A(’.  ') 


, 6 ('.'),’ (L IGUIol  ',“('  . '1 
G R ’ ) 


.6(  ' . ' ) . • (LIQUID)  • ,A(  • . • ) , 


2' 


1 i.  (G1  Z .2  . 3 X ) , ' 5Tu/S£C-DEG  R') 

«RIT£(K  0,123)  C'l,  CGII,  Coin,  CA 
w~:te(K0,1  33)  i;l,  Lill,  UIIl,  u 

133  rCR''AT(>  OVERALL  MEAT  TRAi\'SE£R  COEF.  ' ) , ? X , <.  ( G 1 2 . 2 , 3 X ) , 

1 ' =Tu/FT**2-S=C-DrG  R') 

*r:te(xo,13a)  agi,  agii,  agiii,  aa 

13-  FCR'-'A'^C'  GAS  MEAT  TRANSFER  SURFACE  AREA  ',5('.  '),2x, 

1 -(312«2,3X),'  rT«*2') 

«~i-£(K.C,155)  TUNI,  TUMI,  TUV3,  TUN 
135  FCR'-‘AT('  NU^cER  OF  TRANSFER  UNITS  '),2X, 

1 A (G12.2,3X),  • -') 

«iRIT£(kO,136)  TC-jI,  TCwII,  TOj.5,  TOw 
13t  FCR/AT('  CAR  QAVMA  ',16(*.  *),2X,A(G12.2,3X),'  -’) 

^RITECk 0,137)  ESSI,  ESSII,  ESS3,  ESS 
13?  FCR''AT('  SINGLE  PASS  EFFECTIVENESS  *),2x, 

1 a(o1l»l,3x),* 

.vR:T£(K.C,136)  EPSI,  EPSII,  MPS3,  EPS  A 
133  FCR-'ATC'  TOTAL  E F F E C T I V E N E S S •,11('.  '),2x, 

1 - (G12  .2  ,3X)  , • -' ) 

,PI’'E(XC,100) 

» RI TE Ck 0 ,1  Cl  ) TITLE 
rfFI TE (^0, 200) 

2)0  FOF*'AT('0',16x,’oA3  FLC-,  SYSTEF’  VARIABLES  STATION') 

^iRITE(xO,2  01  ) 


1 3x,'5‘,  3X,'6'/3AX,'?',  5x,'6',  3x,'9',  7X,'11') 

«RITE(klC,20h)  POIG,  POZC-,  P03G,  POAG,  P05G,  PCoG,  P07G,  PC3G, 

P ■;  9 G , P 0 1 O G , ° 0 1 1 G 

2 0 A FOR-'A-'C'C  total  pressure  CPSIA)’, 

1 c:(1x,Gl2.3,lX)/3lx,5(1x,oU.3,lx)) 

rt‘’ITE(<0,203)  PIG,  P23,  P3G,  PAG,  P5G,  PtG,  PTj,  ^cG,  R9G,  ^10  G, 
1 P11  G 

203  F0R’'AT(’0  STATIC  PFESSURE  (PSIA)’, 

1 6(1x,Gl2.3,1x)/3lx,5(1x,Gl2.3,lx)) 

*RITE(^0,206)  TOI-G,  TC2G,  T03G,  TOAG,  T05G,  TC6r,  T07G,  TOSG, 

1 T09G,  T01C3,  T011G 

2C6  FOR'^ATC'O  TOTAL  TE'^P.  (DEG  F)', 

1 o(lx,312.3,1x)/51x,S(lx,Gl2.3,1x)) 

«RITE(k  0,2  0 5)  TIG,  T2G,  T3G,  T-G,  T56,  Ttr. , T'G,  TcG,  T96,  TIOG, 
1 T 1 1 G 

205  FOR''’AT('0  static  T'^'^peRaTURE  (DEG  R)', 

1 6(1x,312.3,1x)/31X,5(1X,Gl2.3,lX)) 

w R I T £ ( X 0 , 2 0 7 ) F " 1 , F X 2 , F ^ 3 , F M A , F i'  5 . F 5 , F 7 , F ■•*1  ? , F ""  9 , F .V  1 0 , 
1 F-'11 

2!}7F0R''AT(’u  -XACHNUraER  (-)', 

1 t(lx,'-12.3,1x)/3lX,5(1x,Gl2.3,1X)) 

wRITE(<0,203)  vg 

20  c FOR''A’('0  VELOCITY  (FT/SEC)', 

1 i(1x,G12.3,1x)/31x,5(1x,G12.3,lx)) 

w‘’IT£(<0,209)  GG 

2 0 9 FCR'AT('0  VOL.  FLC»  FATE  (CF'')', 

1 6(1x,  12.3,1x)/31X,5(1x,G12.3,1X)) 

Z = G''U*.  0 93175 
ROu(  1)=FIG*Z/TIG 
ROGC  2)=P26*Z/TZG 
R C u ( 3 ) = ? 3 G * Z / T 3 G 
fiCG  ( a)=  = ag»:/tlg 
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aOG(5)  = P53*:/T5G 
^ 0 : ( 6 ) = P i 3 * 2 / T 6 .. 

■tOuC  7)— P7G*2/T7b 
G ( ' ) = P S G * ; / T S G 
■?CG(9)  = •’VG’-Z/TV; 

^ C G ( 1 C) = p 1 : G * 2 / T 1 0 G 
ROG(11)=P11G»Z/Ti1g 

kOo 

22C  FCR^ATC'O  DENSITV  (LB/FT**3)', 

1 i(1x,G12.3,1X)/31x,EClx,6l2.3.'lX)) 

i»PlTt(KO,212)  A 

212  FORN-ATC'O  AREA  (FT**7)', 

1 o(1X,Gl2.3,1X)/31X,5(n,G12.3,1X)) 

-^RITE(i<0,213)  GA.-^IGf  GA^■2G,  GA.VjSo,  3A''43,  oAfo'G,  GA«6P, 
1 GA!«SG,  GA.’^vG,  GAfOlOG,  GAMlIG 

212FOR''’AT('0  GAVIvia 

1 c(1x,:12.3,1X)/31X,5(1x,G12.3,1X)) 

= 2(1)  = (P01  G-PC2G)  *2'’.  ■ 

=D(2)=(=02G-PC3G)»27.7 
3 2 ( : ) = ( c C 3 3 - F 0 A G ) » 2 . 7 

=>D(  A)  = (FOAG-p0  33  )’'27.'’ 

P2  ( 3)  = ( =>05G-PC6G  ) *27 . 7 
P:(i)  = (P06G-P07G)*23’.7 
=0 ( =) = ( F07G-P05S) *27.7 
pd(3)=(PC=G-F09G)*27.7 
( 9)  = ( P09G-P01  0C-)  *27 .7 


G AM7g  , 


P2(1C)=(P010G 

- P 0 1 1 G ) * 2 7 . 7 

PD ( 11 ) = (PCI  1 G 
00  27  K = 1 , 1 1 

-p01G)*2T.7 

27 

PP(k;)=pd(k-)/( 

2 7 . 7 * P G 6 G ) 

AFiTe(KC,2iO) 

PO 
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FOR  '•AT  ( • 0 

PRESSURE  DROP 

( IN 

H2G)  ' ,6X 

1 

t ( 1 X , G 1 2 . 3 , 

1X)/37X,5(1X,G1 

2.2,  IX)  ) 

w=ITE(K0,211) 

?F 

i-"  1 

fortak  '0 

PRESSURE  DROP  / 

PG6 

(-)  ' ,£JX 

1 

0 (1 X ,G1 2 .3  , 

1X)/37X,5(1X,G12.3,1X)) 

^RIT£(x0,214) 

21  A 

FOR  ■•’AT  ( • 0 ' , 1 2 
aRIT£(xC,215) 

X, 'COCLING  AIR 

VA  R I AFL 

R S ' ) 

213 

FOR  '"AT  ( ’ G 

STATION  NU'^EER* 

, 1 C X , ' 1 A ' , 1 2 X , ' 

«=IT£(k:,216) 

pA  T , PA  2 

216 

FOR  TAT ( • G 

PRESSURE 1 2X  , • 

(FSI A)  ' 

, 2 ( 1 X , G 1 

i.R:TE(x.O,217) 

T A1 , T A2 

217 

FCR^'AT  ( • 0 

temperature', uX 

, ' (DEG 

R) ' ,2(1X 

»/fiITE(K  0,213) 

RCA1 , ROA2 

2 1 

F 0 R A T ( ' 0 

D£NSITY',5X,'(L3/FT**3 

) ' ,2(1X, 

CipDl=(Fij-PA2 

) *27.7 

wRITt{X0,Z15) 

DPPA 

215 

FCR-'AK  '0 

PRESSURE  DROP 

(IN 

H2  0 ) ' , TX 

-<RITc  (KO,  1 00  ) 
*■R:T£{^:,1C1 ) 

title 

I TE (<0 , 300 ) 


iCG  F:S'’ATC'j’,1tX,'C00LI\G  SYST;’'"  VARIABLES  '’Y  STATION') 

* 0 I T E ( K'  S , 3 0 1 ) 

iOl  FOR'-'ATC'j  STATION'  NU''eEK',1vX,'1',13X,'Z',13Y,'3','>3X 
1 '5',13x,'t',13x,'7'/3:X,'3',13x,'R',12X,'10',12x,'11', 

Z '1;',12x,'13’.1Zx,'14',/37x,-15',Ux,'16*,12x,'17',12x 
3 1 ZX  , ' 1 , 1 2'< , ' 20  ' ) 

«FI’E(K 0,302)  P 

3 02  FOR^ATC'Ci  PRESSURE  (PSIA)', 

1 7(1X,G12.6,1X)/3'IX,7(1X,G12.C,lX)/3‘IX,c(1X,612.6,1X)) 

wfi  I Tr  (KO  , 303  ) Tu  T2,  T3,  T4,  T5,  T6,  T7,  j = , T5,  TIG,  T 
1 T15,  T14,  T15,  Tit,  T17,  TIS,  T19,  T20 

3C3  FCR''aT('0  TE'^'PER  ATURE  (DEG  R)', 

1 7(lX,G12.6,1X)/3lX,7(1X,G12.e:,lX)/31X,C(1X,Gl2.6,lX)) 

wRIT£(KO,304)  VC 

iC4  FOR'^ATC'O  velocity  (FT/SEC)'. 

1 7(lx,G1Z.6,1x)/31x,^(1x,Gl2.t,1X)/3l^,t(1x,c1Z.C,‘'x)) 

4 P I * E ( K : , 3 0 5 ) - C 

30  5 FCS'-'ATC'C  VOL.  FLO-.  RATE  < F T * » 3 / S E C ) ' , 

1 7(lX,C12.6,1x)/Z1x,7(lx,G12.t,1X)/31x,t(lx,Gl2.t,1x)) 

«RITE(<0,303)  iCG 

30c  FCR'MTC'O  VOL.  FLO-.  RATE  (SAL/'^IN)', 

1 7(lX,Gi:.6,1x)/31x,^(1x,G12.6,1x)/31x,c(lx,c12.f,1x)) 

wRi Tt (<c, 307)  D=C 
WRI-'E  (XO  , 3 09  ) AC 

3!):>’FCK''AT('0  AR  = A (FT**2)', 

1 7(1X,r-12.i,1x)/IlY,-'(lx,G12.t.1X)/3lX,o(1x,3l2.5,1X)) 

307  FGR''AT('C  pR''SSUR,i  crop  (PSIA)', 

1 7(ix,';i2.t,1x)/:i*,’(1x,G12.6,lX)/31X,6(1x,C-12.5,lX)) 

« p I T £ ( K 0 , 5 0 ? ) C P C = 

3?i  FOR''AT('0  Pk^^SoPE  drop  / PI  (-)', 

1 7(lx;G12.e,1  /:1>,7(1X,G12.C,1X)/31X,C(1X,G12.<‘,1X)) 

RETURN 
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